1 <%@LANGUAGE="VBSCRIPT"%> 

2 < ! --#include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 < ! --^include f ile=" - . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 set rsSpecSalelnfo = Server .CreateObject ("ADODB. Recordset" ) 

6 rsSpecSalelnfo. ActiveConnection = MM_dbEPakRecords_STRING 

7 rsSpecSalelnfo. Source = "SELECT * FROM specSale" 

8 rsSpecSalelnfo. CursorType = 0 

9 rsSpecSalelnfo. CursorLocation = 2 

10 rsSpecSalelnfo. LockType = 3 

11 rsSpecSalelnfo. Open ( ) 

12 rsSpecSaleInfo_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText. Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 Dim Repeat 1 numRows 

2 6 Repeat 1 numRows = -1 

27 Dim Repeat 1 index 

28 Repeatl index = 0 

29 rsSpecSaleInfo_numRows = rsSpecSaleInfo__numRows + Repeatl numRows 

30 %> 
31 

32 <!--#include f ile=" ../.. /global . asp" ~ > 

33 <html> 

34 <head> 

35 <title>Special Sales</title> 

36 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

37 </head> 

38 <body bgcolor="#<%= (EP_bgcolor) %>" 



39 text="#<%=EP_text%>" 

40 link="#<%=EP_link%>" 

41 vlink="#<%=EP_vlink%>" 

42 alink="#<%=EP_alink%>" 

43 leftmargin="3" 
4 4 t opmargin= " 0 " 

4 5 marginwidth=" 0 " 

4 6 marginheight= " 0 " 

47 background=" . . / . . /<%= (EP^bglmg) %>"> 

48 <! — #include f ile=" ../.• /banner . asp" — > 

49 <br> 

50 <center> 

51 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing= 
"0"> 

52 <tr> 

53 <td> 

54 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

55 <tr> 

56 <td align="center"> 
57 

58 'check to see which Title Text file- is selected 

59 cycleDone = false 

60 Dim titleTextFile 
61 

62 While (NOT rsTitleText .EOF) 

63 

64 If (rsTitleText .Fields. Item( M EP_isSelected") .Value = "True") Then 

65 titleTextFile = rsTitleText. Fields. Item("EP_titleTextFile") .Value *^ 

66 End If 

67 rsTitleText .MoveNext 
•68 Wend 
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69 %> 

70 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //do 
wnload.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#version=4 / 0, 2, 0" width^'MSO" height 
="40"> 

71 <param name= "movie" value=". . /. . /banners/titleText/<%= (titleTextFile) %>?txt=<P 
ALIGN= 1 CENTER 1 XFONT COLOR= ' #<%=EP_text%> 1 >Special Sales ! </FONTX/P>"> 

72 <param name=wmode value= transparent 

73 <param name=quality value=high> 

74 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P AL IGN= 1 CENTER f 
XFONT COLORS #<%=EP_text%>'>Special Sales ! </FONTX/p>" quality=high pluginspage="http: //www.m 
acromedia.com/shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x 
-shockwave-flash" width="480" height="40"> 

75 </embed> 

76 </object> </td> 

77 </tr> 

78 <tr> 

79 <td> 

80 <hr color="#<%=EP_bordercolor%>"> 

81 </td> 

82 </tr> 

83 <% 

84 While ( (Repeatl numRows <> 0) AND (NOT rsSpecSalelnfo .EOF) ) 

85 %> 

86 <tr> 

87 <td> 

88 <div align="center"xiMG SRC=" . ./. ./images/catalog/<%= (rsSpecSalelnfo. Fields. Ite 
m("EPak_SpecSaleIMG") .Value) %>"x/div> 

89 </td> 

90 </tr> 

91 <tr> 

92 <% 

93 specSaleStr = rsSpecSalelnfo . Fields . Item ( "EPak_SpecSaleTXT" ) .Value 
94 

95 specSaleSplit = Split (specSaleStr, VBCrLf) 

96 specSaleJoin - Join (specSaleSplit, "<BR>") 
97 

98 %> 

99 <tdxfont face="sans-serif " size="2"x%= (specSaleJoin) %xbr> 

00   </fontx/td> 

01 </tr> 

02 <tr> 

03 <td> 

34 <hr color="#<%=EP_bordercolor%>"> 

35 </td> 

06 </tr> 

07 <% 

0 8 Repea 1 1 index=Repea 1 1 index+ 1 

0 9 Repea 1 1 numRows=Repeat 1 numRows- 1 

10 rsSpecSalelnfo .MoveNext ( ) 

11 Wend 

12 %> 

L3 <tr> 
14 <td> 

L5 <div align="center"> </div> 

L6 </td> 
L7 </tr> 

18 </table> 

19 </td> 

20 </tr> 

21 </table> 
12 </center> 

> 3 </body> 

14 </html> 
>5 <% 

15 rsSpecSalelnfo. Close () 
11 %> 

28 <% 

19 rsTitleText .Close () 
30 %> 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 < ! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs .asp" — > 
A <% 

5 set specEventlnfo = Server .CreateObject ( "ADODB. Recordset") 

6 specEventlnfo. ActiveConnection = MM_dbEPakRecords__STRING 

7 specEventlnfo. Source = "SELECT * FROM specEvent" 

8 specEvent Info .CursorType =0 

9 specEventlnfo .CursorLocation = 2 

10 specEvent Info.LockType = 3 

1 1 specEventlnfo . Open ( ) 

12 specEvent Info_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server. CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM__dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText . Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 Dim Repeat 1 numRows 

26 Repeat 1 numRows = -1 

27 Dim Repeat 1 index 

28 Repeatl index = 0 

29 specEvent Info_numRows = specEvent Info_numRows + Repeatl numRows 

30 %> 
31 

32 <! — #include f ile=" ../.. /global . asp" — > 

33 <html> 

34 <head> 

35 <title>Special Events</title> 

36 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-l"> 

37 </head> 

38 <body bgcolor="#<%= (EP_bgcolor) %>" 



39 text="#<%=EP_text%>" 

40 link="#<%=EP_link%>" 

41 vlink="#<%=EP_vlink%>" 

42 alink="#<%=EP__alink%>" 

43 leftmargin="3" 
$ 4 topmargin= " 0 " 

4 5 marginwidth=" 0 " 

4 6 marginheight="0" 

47 background=" . . / . . /<%= (EP_bgImg) %>"> 



48 <! — #include file=" ../. ./banner. asp" — > 

49 <br> 

50 <table width="500" border="l" align="center" bordercolor="#<%=EP bordercolor%>" cellspacing= 
"> 



51 <tr> 

52 <td> 

53 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

54 <tr> 

55 <td align="center"> 

56 <% 

57 'check to see which Title Text file is selected 

58 cycleDone = false 

59 * Dim titleTextFile 

50 

51 While (NOT rsTitleText .EOF) 

52 

53 If. (rsTitleText .Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

54 titleTextFile = rsTitleText . Fields . Item ( "EP_titleTextFile" ) .Value 

55 End If 

56 rsTitleText .MoveNext 

57 Wend 

58 - *. %> 
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69 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4 , 0,2,0" width= lf 480" height=" 
40"> 

70 <param name="movie" value=" . ./ . . /banners/titleText/<%= ( titleTextFile) %>?txt=<P A 
LIGN= ' CENTER 1 XFONT COLOR= f #<%=EP _text%> ■ >Special Events ! </FONT></P>"> 

71 <param name=wmode value=transparent> 

72 <param name=quality value=high> 

73 <embed src=" . ./. . /banners/ titleText/<%= (titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 >< 
FONT COLOR= , #<%=EP_text%> 1 >Special Events ! </FONTX/P>" quality=high pluginspage="http: //www. ma 
cromedia.com/shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x- 
shockwave- flash" width="480" height="40"> 

74 </embed> 

75 </object> </td> 

76 </tr> 

77 <tr> 

78 <td> 

79 <hr color="#<%=EPJbordercolor%>"> 

80 </td> 

81 </tr> 

82 <% 

83 While ( (Repeatl numRows <> 0) AND (NOT specEventlnfo ♦ EOF) ) 

84 %> 

85 <tr> 

86 <td> 

87 <div align="center"><IMG SRC=" . ./. . /images/catalog/<%= (specEventlnfo . Fields . Item ( " 
EPak_SpecEventIMG") .Value) %>"x/div> 

88 </td> 

89 </tr> 

90 <tr> 

91 <% 

92 specEventStr = specEvent Info. Fields. Item ("EPakjSpecEventTXT") .Value 
93 

94 specEventSplit = Split (specEventStr, VBCrLf) 

95 specEvent Join = Join (specEventSplit, "<BR>") 
96 

97 %> 

98 <tdxfont face="sans-serif " size="2"x%= (specEvent Join) %><br> 

99   </fontx/td> 

00 </tr> 

01 <tr> 

02 <td> 

03 <hr color="#<%=EP_bordercolor%>"> 

04 </td> 
35 </tr> 

06 <% 

07 Repeatl index=Repeatl index+1 

08 Repeatl numRows =Repeatl numRows- 1 

09 specEventlnfo .MoveNext ( ) 

10 Wend 

11 %> 

12 <tr> 

13 <td> 

14 <div align="center"> </div> 
L5 </td> 

L6 </tr> 
L7 </table> 

18 </td> 

19 </tr> 

20 </table> 

21 </body> 
12 </html> 
23 <% 

14 specEvent Info. Close () 
^5 %> 
16 <% 

11 rsTitleText .Close () 

Z8 %> 

29 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <! — #include file=" . ./ . . /Connections/dbEPakRecords .asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 If (Request .Form ("checkout") <> "") Then 
6 

7 Response . Redirect ( "processlnf o . asp" ) 

8 

9 End If 
10 

11 %> 

12 <% 

13 set rsProducts = Server .CreateObject ("ADODB. Recordset") 
.14 rsProducts .ActiveConnection = MM_dbE Pa kRecords — STRING 

15 rsProducts. Source = "SELECT ID, EPJPname, EP_Pprice, EP_PshipPrice FROM EP__catalog" 

16 rsProducts .CursorType =0 

17 rsProducts .CursorLocat ion = 2 

18 rsProducts.LockType = 3 

1 9 rsProducts .Open ( ) 

20 rsProductsjiumRows = 0 

21 %> 

22 <% 

23 set rsAdminlnfo = Server .CreateObject ( "ADODB. Recordset") 

24 rsAdminlnfo. ActiveConnection = MM_dbEPakRecords_STRING 

25 rsAdminlnfo. Source = "SELECT EP_clientBizName, EP_clientAddressl, EP_clientCity, EP_clientStat 
e, EP_clientZIP, EP_clientPhonel, EP_clientEmaill FROM adminlnfo" 

26 rsAdminlnfo .CursorType = 0 

27 rsAdminlnfo. CursorLocat ion = 2 

28 rsAdminlnfo. LockType = 3 

29 rsAdminlnfo.OpenO 

30 rsAdminInfo__numRows = 0 

31 %> 

32 <% 

33 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

34 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

35 rsTitleText. Source = "SELECT * FROM titleText" 

36 rsTitleText .CursorType = 0 

37 rsTitleText .CursorLocation = 2 

38 rsTitleText .LockType = 3 

39 rsTitleText .Open ( ) 

40 rsTitleText_numRows = 0 

41 %> 

42 <% 

43 1 cart_qty is numeric field 

44 1 prod_id is ID field (hidden) 

45 If (Session ("QTY") <> "" AND Session ( "ID" ) <> "") Then 

46 itemsStr = Session ("ID") 

47 qtyStr = Session ( "QTY" ) 
48 

49 splitltems = Split (itemsStr, "I") 

50 splitQTY = Split (qtyStr, "|") 
51 

52 End If 
53 

54 If (Session("QTY") = "") Then 

55 noltems = true 

56 End If 
57 

58 Dim totalCost 

59 %> 

60 <!— ttinclude file=". ./. ./global. asp" ~> 

61 <html> 

62 <head> 

63 <title>Checkout</title> 

64 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

65 </head> 

66 <body bgcolor="#<%= (EP_bgcolor) %>" 

67 text="#<%=EP_text%>" 

68 link="#<%=EP_link%>" 
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69 vlink="#<%=EP_vlink%>" 
.70 alink="#<%=EP_alink%>" 

71 leftmargin="3" 

72 topmargin="0" 

73 marginwidth="0" 

74 marginheight="0" 

75 background=" . . / . . /<%= (EP_bgImg) %>"> 

76 <! — ftinclude file=" ../. ./banner .asp" — > 

77 <br> 

78 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 
"> 

79 <tr> 

80 <td> 

81 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

82 <tr> 

83 <td align="center"> 

84 <div align="center"> <font face="sans-serif " size="2"xb> 

85 <% 

86 'check to see which Title Text file is selected 

87 cycleDone = false 

88 Dim titleTextFile 
89 

90 While (NOT rsTitleText . EOF) 

91 

92 If (rsTitleText. Fields. Item("EP_isSelected") .Value = "True") Then 

93 titleTextFile = rsTitleText. Fields. I tern ( "EP_titleTextFile" ) .Value 

94 End If 

95 rsTitleText .MoveNext 

96 Wend 

97 %> 

98 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //do 
wnload. macromedia. com/pub/ Shockwave/ cabs /f lash/ swf lash. cab#version=4, 0,2,0" width="480" height 
=»40"> 

99 <param name="movie" value=" . . / . . /banners/titleText/<%= (titleTextFile) %>?txt=<P 
ALIGN= 1 CENTER f XFONT COLOR= 1 #<%=EP_text%> 1 >Your Receipt</FONTX/P>"> 

00 <param name=wmode value=transparent> 

01 <param name-quality value=high> 

02 <embed src=". ./. . /banners/titleText/<%=( titleTextFile) %>?txt=<P ALIGN= 1 CENTER ? 
XFONT COLOR= f #<%=EP_text%> 1 >Your Receipt</FONTX/P>" quality=high pluginspage="http: //www. mac 
romedia.com/shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-s 
hockwave-flash" width="480" height="40"> 

03 </embed> 

34 </objectx/bx/fontx/div> 

35 </td> 

06 </tr> 

07 <tr> 

08 <td> 

09 <hr color="#<%=EPJbordercolor%>"> 

10 </td> 

11 </tr> 

12 <tr> 

13 <td> 

14 <div align="center"xfont f ace="sans-serif " size="2">Thank you, <%=Request ( "userNa 
me")%xbr> 

15 for shopping with <%= (rsAdminlnfo. Fields . Item ( "EP_clientBizName") .Value) %>.<br> 
L6 <br> 

17   </fontx/div> 

18 </td> 

19 </tr> 

20 <tr> 

11 <td> 

12 <div align="center"> 

13 <table width="100%" border="0" cellpadding="l" cellspacing="l"> 
>4 <tr> 

15 <td width="5%"xbxfont f ace="sans-serif " size="2">Quantity</fontx/bx/td> 

>6 <td width="62%"xbxfont f ace="sans-serif " size="2">   Name 

11 of Item(s)</fontx/bx/td> 

28 <td width="14%"xbxfont f ace="sans-serif " size="2">Price</fontx/bx/td> 

19 <td width="14%"xfont f ace="sans-serif " size="2"xb>S&H</bx/fontx/td> 
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.30 </tr> 
.31 <% 

.32 If (NOT no I terns) Then 

.33 

.34 i=0 

.35 While (i <= Ubound (splitl terns ) ) 



.36 %> 

.37 <tr> 

.38 <td width="5%"> 

39 <div align="center"xfont f ace="sans-serif " size="2"x%=splitQTY (i) %></fon 
tx/div> 

40 </td> 

41 <% 

42 rsProducts .MoveFirst ( ) 

43 While (NOT rsProducts . EOF) 

44 %> 

45 <% 

46 If (CStr (splitltems (i) ) = CStr (rsProducts . Fields . Item ( "ID" ) .Value) ) Then 
47 

48 itemCost = rsProducts . Fields . I tern ( "EP_Pprice" ) .Value * Int (splitQTY (i) ) 

49 shipCost = rsProducts. Fields. Item ("EP_PshipPrice" ) .Value * Int (splitQTY (i) ) 

50 totalCost = totalCost + shipCost + itemCost 

51 %> 

52 <td width="62%"xfont face="sans-serif " size="2">       <%= 
(rsProducts. Fields. Item ("EP_Pname") .Value) %x/fontx/td> 

53 <td width="14%"xfont face="sans-serif " size="2"x%=FormatCurrency (itemCost) 
%x/fontx/td> 

54 <% If (shipCost <> "") Then 

55 %> 

56 <td width="14%"xfont size="2" face="sans-serif"x%=FomatCurrency (shipCost) 
%x/fontx/td> 

57 <% End If 

58 %> 

59 <% 

60 End If 

61 %> 

62 <% 

63 rsProducts .MoveNext ( ) 

64 Wend 

65 %> 

66 </tr> 

67 <% 



68 i=i+l 

69 Wend 
70 

71 End If 

72 %> 



73 </table> 

74 <table width="100%" border="0" cellpadding="0" cellspacing="0"> 

75 <tr> 

76 <td width="82%"> 

77 <div align="right"xbxfont face="sans-serif " size="2">Grand 

78 Total :</fontx/bx/div> 

79 </td> 

30 <td width="18%"> 

31 <div align="right"xbxfont f ace="sans-serif " size="2"x%=FormatCurrency (t 
otalCost) %x/fontx/bx/div> 

82 </td> 

83 </tr> 

34 </table> 

35 <br> 

86 <font face="sans-serif " size="2"xb>THIS IS YOUR RECEIPT</bx/fontxbr> 

37 <font f ace="sans-serif " size="l"><%= (rsAdminlnfo . Fields . Item ( "EP_clientBizName" ) 
.Value) %> <br> 

38 <%=( rsAdminlnfo. Fields. Item ( "EP_clientAddressl " ) .Value) %> <br> 

39 <%= (rsAdminlnfo . Fields . Item ( "EP_clientCity" ) .Value) %>,   <%= (rsAdminlnfo . Fiel 
ds.Item("EP_clientState") .Value) %>  <%= (rsAdminlnfo. Fields. I tern ("EP_clientZIP") .Valu 
e) %xbr> 

90 <%= (rsAdminlnfo ..Fields . I tern ( "EP_clientPhonel" ) .Value) %><br> 
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91 <%=(rsAdminInfo. Fields. Item("EP_clientEmaill") .Value) %> </font><br> 

92 <a href=" javascript :print () ;"><font f ace=" sans-serif " size="2" ximg src=" . . / . . /i 
mages/misc/printer.gif " width="20" height="18" border="0" >Click 

93 here to print a copy of this page.<iitig src=" . . / . ./images/misc/printer .gif " width 
= "20" height="18" border="0"x/font></a></div> 

.94 </td> 
.95 </tr> 
96 <tr> 
.97 <td> 

98 <hr color="#<%=EP_bordercolor%>"> 

.99 </td> 

00 </tr> 

01 <tr> 

02 <td> 

03 <div align="center"> </div> 

04 </td> 

05 </tr> 

06 </table> 

07 </td> 

08 </tr> 

09 </table> 

10 </body> 

11 </html> 

12 <% 

13 rsProducts .Close ( ) 

14 %> 

15 <% 

16 rsTitleText .Close () 

17 %> 

18 <% 

19 rsAdminlnfo. Close () 
20 

21 1 Clears Session variables to empty shopping cart 

22 Session ("ID") = "" 

23 Session ("QTY") = "" 
24 

25 %> 
26 
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1 < % @ LANGUAGE^ "VBSCRIPT "%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakOrders . asp" --> 

3 <% 

4 1 *** Edit Operations: declare variables 
5 

6 MM_editAction = CStr (Request ( "URL" ) ) 

7 If (Request .QueryString <> "") Then 

8 MM_editAction = MM_editAction & "?" & Request . QueryString 

9 End If 
10 

11 f boolean to abort record edit 

12 MM_abortEdit = false 
13 

14 1 query string to execute 

15 MM_editQuery = "" 

16 %> 

17 <% 

18 1 *** Insert Record: set variables 
19 

20 If (CStr (Request ("MM_insert") ) <> "") Then 
21 

22 MM_editConnection = MM_dbEPakOrders_STRING 

23 MM_editTable = "orderlnfo" 

24 MM_editRedirectUrl = "receipt .asp?userName=" & Request .Form ("billName") 

25 MM_f ieldsStr = "card_type I value | cardNuml value I cardExp I value I billName I value I billAddr I value I b 
illCity I value I billState I value I BillZIP I value I billPhone I value I billEmail I value I altPhone I value I alt 
Name I value I altAddr I value I altCity I value I altState I value I altZIP l value I orderedl terns | value I orderedQ 
TY | value" 

26 MM_columnsStr = "EPak_odrCCtype I 1 , none, ■ 1 I EPak_odrCC I 1 , none, 1 1 I EPak_odrCCexp | ? , none, ■ 1 | EPak__ 
odrNamel f ,none, • 1 I EPak_odrBillAddr | ' ,none, 1 f I EPak_odrBillCity | f ,none, ? 1 I EPak__odrBillST | f ,none, 

1 ' |EPak_odrBillZIP| 1 ,none, ? ' I EPak_odrBillPhone I 1 ,none, 1 ' I EPak_odrEmail I f ,none, 1 1 I EPak_odrAltPh 
one I 1 , none, 1 ' I EPak_odrAltName I 1 , none, 1 1 I EPak_odrAltAddr | ' , none, T 1 I EPak__odrAltCity | 1 , none, f 1 | EP 
ak_odrAltST| ',none, 1 ■ I EPak_odrAltZIP | 1 ,none, 1 ■ |EPak ItemsArl T ,none, 1 f |EPak ItemsQTYl ' , none, • ,n 

27 ~ 

28 1 create the MM_f ields and MM_columns arrays 

29 MM_f ields = Split (MM_f ieldsStr, "|") 

30 MM_columns = Split (MM_columnsStr, "|") 
31 

32 1 set the form values 

33 For i = LBound (MM_f ields) To UBound (MM_f ields) Step 2 

34 MM_f ields (i+1) = CStr (Request . Form (MM_f ields (i) ) ) 

35 Next 
36 

37 1 append the query string to the redirect URL 

38 If (MM_editRedirectUrl <> "" And Request .QueryString <> "") Then 

39 If (InStr(l, MM_editRedirectUrl, "?", vbTextCompare) - 0 And Request .QueryString <> "") Th 
en 

40 MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request .QueryString 

41 Else 

42 MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request .QueryString 

43 End If 

44 End If 
45 

46 End If 

47 %> 

48 <% 

49 » *** Insert Record: construct a sql insert statement and execute it 
50 

51 If (CStr (Request ( "MM_insert" ) ) <> "") Then 
52 

53 1 create the sql insert statement 

54 MM_tableValues = "" 

55 MM__dbValues = "" 

56 For i = LBound (MM_f ields) To UBound (MM_f ields) Step 2 

57 FormVal = MM_f ields (i+1) 

58 MM_typeArray = Split (MM_columns (i+1) ,", ") 

59 Delim = MM_typeArray (0) 

60 If (Delim = "none") Then Delim = "" 

61 AltVal = MM_typeArray(l) 
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30 leftmargin="3" 

31 topmargin="0" 

32 marginwidth="0" 

33 marginheight="0" 

34 background=" . ./. . /<%= (EP_bgImg) %>"> 



35 <! — #include f 116=" ../.. /banner . asp" — > 

36 <br> 

37 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacings 
"> 



38 <tr> 

39 <td> 

40 <table width=" 100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

41 <tr> 

42 <td align="center"> 

43 . <div align="center"xfont f ace="sans-serif " size="2"xb>Before we 

44 process your order, we need your billing information. </b></font> 

45 </div> 

46 </td> 

47 </tr> 

48 <tr> 

49 <td> 

50 <hr color="#<%=EPjDordercolor%>"> 

51 </td> 

52 </tr> 

53 <tr> 

54 <td> 

55 <div align="center"xfont face="sans-serif " size="2">Please fill out 

56 the following form:<br> 

57 (<font color="#<%=EP_bordercolor%>"> *</font> 

58 indicates a required field. ) </fontxbr> 

59   <br> 

50 <form name= "bill Info" method="POST" action="<%=MM_editAction%>"> 

61 <table width="100%" border="0"> 

52 <tr> 

53 <td colspan="2"> 

54 <div align="left"xfont face="sans-serif " size="2"xb>Credit 

55 Card Inf ormation</bx/fontx/div> 

56 </td> 

57 </tr> 

58 <tr> 

59 <td width="33%"> 

70 <div align="right"xfont f ace="sans-serif " size="2">Credit 

71 Card Type : </fontx/div> 

72 </td> 

73 <td width="67%"> 

74 <select name="card_type"> 

75 <option value="Visa">Visa</option> 

76 <option value= "Mastercard" >Mastercard<7 opt ion> 

77 </select> 

78 </td> 

79 </tr> 
BO <tr> 

31 <td width="33%"> 

32 <div align="right"xfont f ace="sans-serif " size="2">Credit 

33 Card Number :</fontx/div> 

34 </td> 

35 <td width="67%"> 

36 <input type="text" name="cardNum" size="20"> 

37 </td> 

38 </tr> 

39 <tr> 

90 <td width="33%"> 

91 <div align="right"xfont face="sans-serif " size="2">Expiration 
)2 Date:</fontx/div> 

33, </td> 

94 <td width="67%"> 

35 < input type="text" name="cardExp" size="6" value="MM/YY"> 

96 </td> 

97 </tr> 
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62 If (AltVal = "none") Then AltVal. = 

■63 EmptyVal = MM_typeArray (2) 

64 If (EmptyVal = "none") Then EmptyVal = "" 

65 If (FormVal = "") Then 

66 FormVal = EmptyVal 

67 Else 

68 If (AltVal <> "") Then 

69 FormVal = AltVal 

70 Elself (Delim = "'") Then 1 escape quotes 

71 FormVal = " 1 " & Replace (FormVal, " ' 1 • ") & " f " 

72 Else 

73 FormVal = Delim + FormVal + Delim 

74 End If 

75 End If 

76 If (i <> LBound(MM_fields) ) Then 

77 MM_tableValues = MM_tableValues & 

78 MM_db Values = MM_dbValues & "," 

79 End if 

80 MM_tableValues = MM_t able Values & MM_columns (i) 

81 MM__dbValues = MM_db Values & FormVal 

82 Next 

83 MM_editQuery = "insert into " & MM_editTable & " (" & MM_t able Values & ") values (" & MM dbV 
alues & ") " 

84 

85 If (Not MM_abortEdit) Then 

86 1 execute the insert 

87 Set MM_editCmd = Server. CreateObj ect ("ADODB. Command") 

88 MM_editCmd.ActiveConnection = MM_editConnection 

89 MM_editCmd.CommandText = MM_editQuery 

90 MM_editCmd. Execute 

91 MM_editCmd. Act iveConnect ion. Close 
92 

93 If (MM_editRedirectUrl <> "") Then 

94 Response . Redirect (MM_editRedirectUrl ) 

95 End If 

96 End If 



97 

98 End If 

99 %> 

00 <% 

01 set Recordsetl = Server .CreateObj ect ("ADODB. Recordset") 

02 Recordsetl . ActiveConnection = MM_dbEPakOrders_STRING 

03 Recordsetl. Source = "SELECT * FROM orderlnfo" 

04 Recordsetl .CursorType = 0 

05 Recordsetl .CursorLocat ion = 2 

06 Recordsetl .LockType = 3 

07 Recordsetl .Open ( ) 

08 Recordsetl_numRows = 0 

09 %> 

10 <!--#include f ile=" . ./.. /global . asp" — > 

11 <html> 

12 <head> 

13 <SCRIPT LANGUAGE = " JavaScript "> 

14 clicked = false 

15 function j sSubmitBilling ( ) { 



16 if (clicked != true) { 

17 clicked = true 

18 .document .bill Info. submit () 

19 } 



20 } 

21 </SCRIPT> 

22 <title>Order Form</title> 

23 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

14 </head> 

15 <body bgcolor="#<%=(EPjDgcolor) %>" 



26 text="#<%=EP_text%>" 

27 iink="#<%=EP_link%>" 

28 vlink="#<%=EP_vlink%>" 

29 alink="#<%=EP alink%>" 
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98 <tr> 

•99 <td colspan="2"> </td> 

00 </tr> 

01 <tr> 

02 <td colspan="2"xfont f ace="sans-serif " size="2"xb>Contact 

03 Information</bx/fontx/td> 

04 </tr> 

05 <tr> 

06 <td width="33%"> 

07 <div align="right"xfont f ace="sans-serif " size="2" color="#<%=EP border 
color%>">*</fontxfont f ace="sans-serif " size="2"> 

08 Billing Name : </font></div> 

09 </td> 

10 <td width="67%"> 

11 < input type="text" name="billName" size="20"> 

12 </td> 

13 </tr> 

14 <tr> 

15 <td width="33%"> 

16 <div align="right"><font f ace="sans-serif " size="2" color="#<%=EP_border 
color%>">*</font> <font f ace="sans-serif " size="2">Billing 

17 Address :</fontx/div> 

18 </td> 

19 <td width="67%"> 

20 <input type="text" name="billAddr" size="20"> 

21 </td> 

22 </tr> 

23 <tr> 

24 <td width="33%"> 

25 <div align= ,f right"xfont f ace="sans-serif " size="2" color= ff #<%=EP_border 
color%>">*</font> <font f ace="sans-serif " size="2">Billing 

26 City:</fontx/div> 

27 </td> 

28 <td width="67%"> 

29 <input type="text" name="billCity ,f size="15"> 

30 </td> 

31 </tr> 

32 <tr> 

33 <td width= M 33%"> 

34 <div align="right"xfont f ace="sans-serif " size="2" color="#<%=EP_border 
color%>">*</font> <font face=" sans-serif" size="2">Billing 

35 State :</fontx/div> 

36 </td> 

37 <td width="67%"> 

38 <select name="billState"> 

39 <option value="00" selected> — </option> 

10 <option value= ,f AL">AL</option> 

11 <option value="AK">AK</option> 

12 <option value="AZ">AZ</option> 

13 <option value="AR">AR</option> 

14 <option value="CA">CA</option> 

15 <option value="CO">CO</option> 

16 <option value="CT">CT</option> 

17 <option value="DE">DE</option> 

18 <option value="FL r, >FL</option> 

19 <option value="GA">GA</option> 

50 <option value= f, HI">HI</option> 

51 <option value="ID">ID</option> 

52 <option value="IL">IL</option> 

53 <option value="IN ,, >IN</option> 
)4 <option value="IA">IA</option> 
)5 <option value="KS">KS</option> 
i6 <option value="KY">KY</option> 
>7 <option value="LA">LA</option> 
>8 <option value="ME">ME</option> 
>9 <option value="MD">MD</option> 
10 <option value="MA">MA</option> 
51 <option value= ,, MI">MK/option> 
)2 <option value="MN">MN</option> 
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63 <option value= M MS">MS</option> 

64 <option value="MO">MO</option> 

65 <option value="MT">MT</option> 

66 <option value="NE">NE</option> 

67 <option value="NV">NV</option> 

68 <option value="NH">NH</option> 

69 <option value="NJ">NJ</option> 

70 <option value="NM">NM</option> 

71 <option value= ,f NY ,, >NY</option> 

72 <option value="NC ,f >NC</option> 

73 <option value="ND">ND</option> 

74 <option value="OH">OH</option> 

75 - <option value="OK ,, >OK</option> 

76 <option value="OR">OR</option> 

77 <option value="PA">PA</option> 

78 <option value="RI">RK/option> 

79 <option value="SC">SC</option> 

80 <option value="SD n >SD</option> 

81 <option value=="TN">TN</option> 

82 <option value="TX">TX</option> 

83 <option value="UT">UT</option> 

34 <option value="VT r, >VT</option> 

35 <option value= f, VA">VA</option> 

36 <option value="WA">WA</option> 

37 <option value="WV">WV</option> 

38 • <option value="WI">WI</option> 

39 <option value="WY">WY</option> 

90 </select> 

91 </td> 

92 </tr> 

93 <tr> 

94 <td width="33%"> 

95 <div align="right M ><font face="sans-serif " size="2" color="#<%=EP_border 
color%>">*</font> <font face="sans-serif " size="2">Billing 

96 ZIP:</fontx/div> 

97 </td> 

)8 <td width="67%"> 

99 <input type="text" name= M BillZIP" size="8"> 

DO </td> 

)1 </tr> 

92 <tr> 

)3 <td width="33%"> 

)4 <div align="right"xfont f ace="sans-serif " size="2" color="#<%=EP_border 

color%>">*</font> <font f ace="sans-serif " size="2">Billing 

95 Phone #:</font></div> 

)6 </td> 

)7 <td width="67% ,f > 

98 <input type= ,f text" name= f, billPhone" size="13"> 

99 </td> 
L0 </tr> 
11 <tr> 

L2 <td width="33%"> 

13 <div align="right"xfont f ace=" sans-serif " size="2" color=" #<%=EP_border 

color%>">*</font> <font f ace="sans-serif 11 size="2">Contact 

.4 Email Address :</fontx/div> 

.5 </td> 

16 <td width="67%"> 

L7 <input type="text" name="billEmail" size="20"> 

L8 </td> 

'.9 </tr> 

10 <tr> 

11 <td colspan="2"> </td> 

12 </tr> 
!3 <tr> 

!4 <td colspan="2"> 

>5 <div align="left"xfont face="sans-serif " size="2"xb>Optional 

16 Information</bx/fontx/div> 

11 </td> 

!8 </tr> 
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329 <tr> 

330 <td width="33%"> 

331 <div align= ff right"><font f ace="sans-serif " size="2">Alternate 

332 Phone # : </fontx/div> 
333- </td> 

334 <td width="67%"> 

335 <input type="text" name="altPhone" si2e="13"> 

336 <-/td> 

337 </tr> 

338 <tr> 

339 <td colspan="2"> </td> 

340 </tr> 

341 <tr> 

342 <td colspan="2"xfont f ace="sans-serif " si2e="2"xb>Alternate 

343 Shipping Information</b></f ontx/td> 

344 </tr> 

345 <tr> 

346 <td width="33%"> 

347 <div align="right"xfont f ace="sans-serif " si2e="2">Alternate 

348 Name : </f ontx/div> 

349 </td> 

350 <td width="67%"> 

351 <input type= n text" name="altName" size="20"> 

352 </td> 

353 </tr> 

354 <tr> 

355 <td width="33%"> 

356 <div align="right ,f xfont f ace="sans-serif " size="2 M >Alternate 

357 Address : </f ontx/div> 

358 </td> 

359 <td width="67%"> 

360 <input type="text" name="altAddr" si2e="20 M > 

361 </td> 

362 - </tr> 

363 <tr> 

364 <td width="33%">- 

365 <div align="right"xfont f ace="sans-serif " size="2">Alternate 

366 City:</fontx/div> 

367 </td> 

368 <td width="67%"> 

369 <input type="text" name="altCity" si2e="15"> 

370 </td> 

371 </tr> 

372 <tr> 

373 <td width="33%"> 

374 <div align="right"xfont f ace="sans-serif B si2e="2">Alternate 

375 State : </f ontx/div> 

376 </td> 

377 <td width="67%"> 

578 <select name="altState"> 

'79 <option value="00" selected> — </option> 

580 <option value="AL">AL</option> 

581 <option value="AK">AK</option> 
; 82 <option value="AZ">AZ</option> 
; 83 <option value="AR">AR</option> 
*84 <option value="CA M >CA</option> 
J85 <option value="CO">CO</option> 
•8 6 <option value="CT">CT</option> 
■87 <option value="DE">DE</option> 
; 88 <option value="FL">FL</option> 

89 <option value="GA">GA</option> 

90 <option value="HI">HK/option> 
: 91 <option value="ID ,, >ID</option> 
: 92 <option value="IL">IL</option> 

93 <option valuer" IN">IN</option> 

94 <option value="IA">IA</option> 

95 <option value="KS">KS</option> 

96 <option value="KY">KY</option> 
■97 <option value="LA">LA</option> 
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398 <option value="ME">ME</option> 

399 <option value="MD">MD</option> 
4 00 <option value="MA">MA</option> 
4 01 <option value="MI">MK/option> 
402 <option value="MN">MN</option> 
4 03 <option value="MS">MS</option> 

404 <option value="MO">MO</option> 

405 <option value="MT">MT</option> 
4 06 <option value="NE">NE</option> 
4 07 <option value="NV n >NV</option> 

408 <option value="NH">NH</option> 

409 <option value="NJ">NJ</option> 

410 <option value="NM">NM</option> 

411 <option value="NY">NY</option> 

412 <option value="NC">NC</option> 

413 <option value="ND">ND</option> 

414 <option value="OH lf >OH</option> 

415 <option value="OK">OK</option> 

416 <option value="OR">OR</option> 

417 <option value="PA">PA</option> 

418 <option value="RI">RK/option> 

419 <option value="SC">SC</option> 

420 <option value="SD">SD</option> 

421 <option value="TN">TN</option> 

422 <option value="TX ,, >TX</option> 

423 <option value="UT">UT</option> 

424 <option value="VT">VT</option> 

425 <option value="VA">VA</option> 

426 <option value="WA">WA</option> 

427 <option value="WV">WV</option> 

428 <option value="WI">WK/option> 

429 <option value="WY">WY</option> 

430 </select> 

431 </td> 

432 </tr> 

433 <tr> 

434 <td width="33%"> 

435 <div align="right"xfont f ace="sans-serif " size="2">Alternate 

436 ZIP:</fontx/div> 

437 </td> 

438 <td width="67%"> 

439 <input type="text" name="altZIP" size="8"> 

440 </td> 

441 </tr> 

442 <tr> 

443 <td width="33%"> </td> 

444 <td width="67%"> 

445 <input type="hidden" name="orderedI terns" value="<%=Session("ID") %>"> 

446 <input type= "hidden" name=" order edQTY" value="<%=Session ( "QTY") %>"> 

447 </td> 
548 </tr> 

449 <tr> 

450 <td colspan="2"> 

151 <div align="center"> 

152 <input type= "button" onClick="jsSubmitBilling ( ) " id="submitBtn" name=" 
submitBtn" value="Click here to finalize your order." style=" 

153 border-color : #<%=EP_bordercolor%>; 

154 border-style: groove; 

155 border-width: 3px; 

156 background-color : #<%=EP_bgcolor%>; 

157 color: #<%=EP_text%>; 
:58 cursor: hand;"> 

159 </div> 

160 </td> 

61 </tr> 

62 </table> 

'63 <input type="hidden" name="MM_insert" value="true"> 

164 </form> 

165 </div> 
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166 </td> 

167 </tr> 

168 <tr> 

169 <td> 

170 <hr color=' , #<%=EP_bordercolor%>"> 

171 </td> 

172 </tr> 

173 <tr> 

174 <td> 

175 <div align="center"> </div> 

176 </td> 

177 </tr> 

178 </table> 

179 </td> 

180 </tr> 



81 </table> 

.82 </body> 

:83 </html> 

184 <% 

185 Recordset 1 .Close () 
86 %> 

87 
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1 <!--#include f ile=" . ./.. /global . asp" — > 

2 <html> 

3 <head> 

4 <title>Thank you for your inquiry</title> 

5 <meta http-equiv="Content-Type" content=" text /html; charset=iso-8859-l"> 

6 </head> 

7 <body bgcolor="#<%=(EP_bgcolor) %>" 



8 text="#<%=EP_text%>" 

9 link="#<%=EP_link%>" 

0 vlink="#<%=EP_vlink%>" 

1 alink="#<%=EP_alink%>" 

2 leftmargin="3" 

3 topmargin="0" 

4 marginwidth= " 0 " 

5 marginheight="0" 

6 background^' . . / . . /<%= (EP_bgImg) %>"> 

7 <! — #include f ile=" ../. ./banner . asp" — > 

8 <br> 

9 <table width="500" border="l" align="center ,f bordercolor="#<%=EP_bordercolor%>" cellspacing="0" 

> 

0 <tr> 

1 <td> 

2 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

3 <tr> 

4 <td> 

5 <hr color="#<%=EP_bordercolor%>"> 
5 </td> 

7 </tr> 

8 <tr> 

9 <td> 

D <div align="center"xbxfont f ace="sans-serif " size="2" >Thank you</ font >< font face= 

"sans-serif" size="2"> 
L for your inquiry. </fontx/bxfont face= s "sans-serif " size="2"xbr> 

2 <br> 

3 If necessary, and if you've provided us with your email address, <br> 
\ we will respond as soon as possible. </fontx/div> 

5 </td> 
5 </tr> 
7 <tr> 
3 <td> 

9 <hr color="#<%=EPJbordercolor%>"> 

) </td> 
L </tr> 

> <tr> 

3 <td> 

\ <div align="center"> </div> 

5 </td> 
5 </tr> 
7 </table> 
3 </td> . 

> </tr> 

) </table> 
L </body> 

> </html> 
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1 <%@LANGUAGE="VBScript"%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakRecords .asp" — > 

3 <! — ^include file="../. . /Connect ions/dbEPakAppearance. asp" — > 

4 <! — #include file="../. . /Connect ions/dbEPakObjectProps .asp" --> 

5 <% 

6 set rsOwnerlnfo = Server .CreateObject ( "ADODB. Recordset" ) 

7 rsOwnerlnfo. ActiveConnection = MM_dbEPakRecords_STRING 

8 rsOwnerlnfo. Source = "SELECT * FROM adminlnfo" 

9 rsOwnerlnfo .CursorType = 0 

10 rsOwnerlnfo .CursorLocation = 2 

11 rsOwnerlnfo .LockType = 3 

12 rs0wnerlnfo.0pen() 

13 rsOwnerInfo_numRows = 0 

14 %> 

15 <% 

16 set rsPageBools = Server .CreateObject ("ADODB. Recordset") 

17 rsPageBools .ActiveConnection = MM_dbEPakAppearance_STRING 

18 rsPageBools. Source = "SELECT * FROM pages" 

19 rsPageBools .CursorType = 0 

20 rsPageBools .CursorLocation = 2 

21 rsPageBools .LockType = 3 

22 rsPageBools . Open ( ) 

23 rsPageBools_numRows = 0 

24 %> 

25 <% 

26 set rsCouponlnfo = Server .CreateObject ("ADODB. Recordset") 

27 rsCouponlnfo. ActiveConnection = MM_connEPObjectProps_STRING 

28 rsCouponlnfo. Source = "SELECT ID, coupon_expDate FROM coupon" 

29 rsCouponlnfo. CursorType = 0 

30 rsCouponlnfo. CursorLocation = 2 

31 rsCouponlnfo .LockType = 3 

32 rsCouponlnfo . Open ( ) 

33 rsCouponInfo_numRows = 0 

34 %> 

35 <!--#include f ile=" ../.. /global . asp" — > 

36 <% 

37 hltBox = "onMouseOver="&Chr (34) &" this. style. background^ "& EP_highlight &" 1 ; this . style . color= f 
"& EP_alink &" ' "&Chr (34 ) &VBlf &"onMouseOut="&Chr (34) &" this . style .background= 1 transparent 1 ; this . 
style. color= ! "& EP_text &" ? "&Chr (34) &VBlf &" style="&Chr (34) &"cursor : hand; "&Chr (34) &"" 

38 %> - 

39 <% 

10 If (NOT rsCouponlnfo. EOF) Then 

11 rsCouponlnfo. MoveFirst ( ) 

12 couponExpired = false 
\3 writeCoupon = false 

14 While (NOT rsCouponlnfo . EOF) 



15 
16 
17 
18 
19 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
50 
51 
52 
53 
54 
55 
56 
57 



End If 



If ( rsCouponlnfo. Fields. I tern ( "coupon_expDate" ) .Value <> "") Then 
expireDate = rsCouponlnfo. Fields . Item ("coupon_expDate") .Value 
expireArray = Split (expireDate, "/") 



if (Int (currentArray (2) ) > Int (expireArray (2 )) ) Then 

couponExpired = true 
End If 



If (Int (currentArray (0) ) > Int (expireArray (0) ) ) Then 

couponExpired = true 
End If 



If (Int (currentArray (1) ) > Int (expireArray (1) ) ) Then 

couponExpired = true 
End If 



currentDate = Date ' currentDate = server's current date (MM/DD/YY) 

currentArray = Split (currentDate, "/") 

1 compare values, first year, then month, then day. 

1 if current values are greater than expire values, then respond 

f with a CANCEL variable 
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68 

69 If (NOT couponExpired) Then 

70 writeCoupon = true 

71 End If 
72 

73 rsCouponlnfo .MoveNext ( ) 

74 Wend 

75 rsCouponlnfo .MoveFirst ( ) 



76 End If 

77 %> 
78 

79 <html> 

80 <head> 

81 <STYLE> 

32 .disableHscroll{ 

33 width: 100% ; over flow-x: hidden; 

34 > 

85 a { text-decoration: none; } 

86 </STYLE> 

37 <title>Menu</title> 

38 <meta http-equiv="Content-Type" content^" text/html; charset=iso-8859-l"> 

39 <script language=" JavaScript" src=" js/compTestl . js"x/script> 

90 </head> 

91 <body bgcolor="#<%=EP_bgcolor%>" 



52 text="#<%=EP_text%>" 

93 link="#<%=EP_link%>" 

54 vlink="#<%=EP_vlink%>" 

55^ alink="#<%=EP_alink%>" 

56 leftmargin="0" 

57 topmargin="0" 

58 marginwidth="0" 

59 marginheight="0" 

50 background=" . . / . . /<%=EP_menubgImg%>" 

51 class="disableHscroll"> 

D2 <table width="100%" border="l" cellspacing="0" cellpadding="0" bordercolor="#<%=EP_bordercolor 

%>" height="100%"> 

)3 <tr> 

)4 <td align="center" height="80"><img src=" . J . ,/images/logo_lg.gif " width="150" height="80" 

></td> 

)5 </tr> 

56 <tr> 

)7 <td valign="top"> 

)8 <table width=" 100%" border="0" ceilspacing="0" cellpadding="0" bordercolor=*"#<%=EP_borde 

rcolor%>"> 

)9 <tr> 

10 <td colspan="2"> 

11 <div align="center"xfont f ace="Verdana, Arial, Helvetica, sans-serif" size="2"xb 
>Menu</b></fontx/div> 

12 </td> 
.3 </tr> 

.4 <tr> 

.5 <td colspan="2"Xfont color="#FFFFFF"> </font> 

.6 <div align="center"xfont f ace="Verdana, Arial, Helvetica, sans-serif" size="2">&n 

bsp;</fontx/div> 

.7 </td> 

.8 </tr> 

.9 <tr onClick="parent .epakjnain. location. href =' home. asp' " <%=hltBox%» 

50 <td> </td> 

11 <tdxfont face="sans-serif " size="2"> 

?2 <SCRIPT LANGUAGE=" JavaScript "> 

!3 if (is_nav) { 

!4 document .write ( f <a href ="home .asp" target="epak_main"> 1 ) ; 

^5 } 

!6 </SCRIPT> 

:7 Home Page 

IS <SCRIPT LANGUAGE=" JavaScript "> 

19 if (is_nav) { 

V0 document. write ("</a>") ; 

u } 
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32 </SCRIPT> 

33 </fontx/td> 

34 </tr> 

35 <% 

36 If (rsPageBools. Fields. Item ("EPak_about") .Value <> "False") Then 

37 %> 

38 <tr onClick="parent . epakjnain. locat ion. href = ' about .asp 1 " <%=hltBox%» 

39 <td> </td> 

.40 <tdxfont face="sans-serif " size="2"> 

41 <script language^" JavaScript "> 

42 if (is_nav) { 

43 document .write ( '<a href = M about . asp" target="epak_main">' ) ; 

44 } 

45 </script> 

46 About Us 

4 7 <script language^ " JavaScript " > 

48 if (isjiav) { 

49 document .write ("</a>") ; 

50 } 

51 </script> 

52 </fontx/td> 

53 </tr> 

54 <% End If %> 

55 <% 

56 If (rsPageBools. Fields. Item ( "EPak_catalog" ) .Value <> "False") Then 

57 %> 

58 <tr onClick="parent.epak_main. location. href =■ catalog. asp 1 " <%=hltBox%» 

59 <td> </td> 

60 <tdxfont face="sans-serif " size="2"> 

61 <script language-" JavaScript"> 

62 if (is_nav) { 

53 document .write ( f <a href="catalog. asp" target="epak_main"> f ) ; 

64 } 

65 </script> 

56 Our Catalog 

57 <script language=" JavaScript"> 

58 if (is_nav) { 

59 document .write ("</a>") ; 

70 } 

71 </script> 

72 </fontx/td> 

73 </tr> 

74 <% End If %> 

75 <% 

76 If (rsPageBools. Fields. Item("EPak_sales") .Value <> "False") Then 

77 %> 

78 <tr onClick="parent. epakjnain. location. href ='specSales. asp ? " <%=hltBox%» 

79 <td> </td> 

30 <tdxfont face="sans-serif " size="2"> 

31 <scriptl angu age="JavaScript"> 

32 if (isjiav) { 

33 document .write ( f <a href ="specSales .asp" target="epak main">'); 

34 } 

35 </script> 

36 Special Sales 

J7 <script language=" JavaScript"> 

38 if (isjiav) { 

39 document .write ("</a>") ; 
*0 } 

U </script> 

>2 </fontx/td> 

*3 </tr> 

H <% End If %> 

>5 <% 

)6 If (rsPageBools. Fields. Item ("EPak events") .Value <> "False") Then 

H %> 

)8 <tr onClick="parent . epakjnain . location . href = 1 specEvent s . asp 1 " <%=hl tBox%» 

)9 <td> </td> . 

)0 <tdxfont face="sans-serif " size="2"> 
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0 1 <scr ipt language- " J avaScr ipt " > 

:02 if (is_nav) { 

:03 document .write ( f <a href ="specEvents . asp" target="epak_main"> ? ) ; 

!04 } 

'05 </script> 

!06 Special Events 

:07 <script language=" JavaScript"> 

:08 if (is_nav) { 

!09 document .write ("</a>") ; 

:10 } 

:ll </script> 

:12 </fontx/td> 

13 </tr> 

.14 <% End If %> 

15 <% 

16 If (rsPageBools . Fields. Item ( "EPak_coupon" ) .Value <> "False" AND writeCoupon) Then 

17 %> 

1 8 <tr onClick="parent . epak_main . location . href = 1 coupon . asp 1 " <%=hl tBox%» 

19 <td> </td> 

20 <tdxfont face="sans-serif " size="2"> 

21 <script language=" JavaScript "> 

22 if (is_nav) { 

23 document. write ( '<a href ="coupon. asp" target="epak_main"> 1 ) ; 

24 } 

25 </script> 

26 Web Coupon 

27 <script language=" JavaScript"> 

28 if (is_nav) { 

29 document .write ("</a>") ; 

30 } 

31 </script> 

32 </fontx/td> 

33 </tr> 

34 <% End If %> 

35 <% 

36 If (rsPageBools. Fields. I tern ( "EPak_cart" ) .Value <> "False") Then 

37 %> 

38 <tr onClick="parent.epak_main. location. href =' cart .asp 1 " <%=hltBox%» 

39 <td> </td> 

40 <td><font face="sans-serif " size="2"> 

41 <script language=" JavaScript "> 

42 if (is_nav) { 

43 document. wri te ( f <a href ="cart . asp" target="epak_main"> T ) ; 

44 } 

45 </script> 

46 Shopping Cart 

47 <script language=" JavaScript "> 

48 if (is_nav) { 

49 document.write("</a>") ; 

50 } 

51 </script> 

52 </fontx/td> 

53 </tr> 

54 <% End If %> 

55 <% 

56 If (rsPageBools. Fields. Item ( "EPak_faq") .Value <> "False") Then 

57 %> 

58 <tr onClick="parent.epak_main. location. href= f faq. asp 1 " <%=hltBox%» 

59 <td> </td> 

50 <tdxfont face="sans-serif " size="2"> 

51 <script language=" JavaScript"> 

52 if (is__nav) { 

53 document .write ( f <a href="faq.asp" target="epak_main"> f ) ; 

54 } 

55 </script> 

56 FAQ 

57 <script language=" JavaScript"> 

58 if (is_nav) { 

59 document .write ( "</a>") ; ~~ 
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no } 

271 </script> 

112 </fontx/td> 

173 </tr> 

174 <% End If %> 
115 <% 

US If (rsPageBools. Fields. Item ( "EPak_inquiries" ) .Value <> "False") Then 

111 %> 

11B <tr onClick="parent . epak_main . location . href = f inquiries . asp 1 " <%=hltBox%» 

179 <td> </td> 

180 <tdxfont face="sans-serif " size="2"> 

181 <script language=" JavaScript"> 

182 if (is_nav) { 

:83 document .write ( ! <a href="inquiries . asp" target="epak main">' ) ; 

184 } 

:85 </script> 

:86 Questions<br> 

:87 & Comments 

:88 <script language=" JavaScript"> 

!89 if (is_nav) { 

:90 document.write("</a>") ; 

91 } 

92 </script> 

93 </fontx/td> 

94 </tr> 

.95 <% End If %> 

96 <% 

97 If (rsPageBools. Fields. Item ("EPak_map") .Value <> "False") Then 

98 %> 

99 <tr onClick="parent .epakjnain. location. href =' map. asp 1 " <%=hltBox%» 

00 <td> </td> 

01 <td><font face="sans-serif " size="2"> 

02 <script language=" JavaScript"> 

03 if (isjiav) { 

04 document .write ( ? <a href ="map. asp" target="epak main">'); 

05 } 

06 </script> 

07 Map 

08 <script language=" JavaScript"> 

09 if (is_nav) { 

10 document .write ("</a>") / 

11 } 

12 </script> 

13 </fontx/td> 

14 </tr> 

15 <% End If %> 

16 <% 

17 If (rsPageBools. Fields. Item ("EPak_contact") .Value <> "False") Then 

18 %> 

19 <tr onClick="parent .epak_main. location. href =' contact .asp 1 " <%=hltBox%» 

20 <td> </td> 

21 <tdxfont face="sans-serif " size="2"> 

22 <script language=" JavaScript ,f > 

23 m if (is_nav) { 

24 document .write ( '<a href ="contact . asp" target="epak main"> f ) ; 

25 } 

26 </script> 

27 Contact Us 

28 <script language=" JavaScript "> 

29 if (is_nav) { 

30 document .write ("</a>") ; 

31 } 

32 </script> 

33 </fontx/td> 

34 </tr> 

35 <% End If %> 

36 </table> 

37 </td> 

38 </tr> 
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39 <tr> 

40 <td bgcolor="#FFFFFF" valign="top" height="2%"> 

41 <CENTER> 

42 <font face="Arial" size="l"xbxfont color=" #000000"x%= (rsOwnerlnfo . Fields . Item ( "EP_c 
lientBizName") .Value) %></fontx/bxfont color="#000000 M xbr> 

.43 <%= (rsOwnerlnfo. Fields . Item("EP_clientAddressl") .Value) %xbr> 

44 <% If (rsOwnerlnfo. Fields. Item ("EP_clientAddress2") .Value <> "") Then %> 

45 <%=( rsOwnerlnfo. Fields. I tern ( "EP_clientAddress2" ) .Value) %xbr> 
• 4 6 <% End If %> 

47 <%= (rsOwnerlnfo . Fields . Item ( "EP_clientCity" ) .Value) %>, <%= (rsOwnerlnfo . Fields . Item ( "EP 

_clientState M ) .Value) %>    <%= (rsOwnerlnfo . Fields . Item ( "EP_clientZIP" ) .Value) %><br> 

4 8 Phone:  <%= (rsOwnerlnfo. Fields . Item("EP_clientPhonel" ) .Value) %></fontx/font> 

49 </CENTER> 

50 </td> 

51 </tr> 



52 </table> 

53 </body> 

54 </html> 

55 <% 

56 rsOwnerlnfo. Close () 

57 %> 

58 <% 

59 rsPageBools. Close () 

60 %> 

61 <% 

62 rsCouponlnfo .Close ( ) 

63 %> 
64 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <( — #include f ile=" . . / . . /Connections/dbEPakObjectProps . asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 set rsMapInfo = Server .CreateObject ( "ADODB . Recordset" ) 

6 rsMapInfo . ActiveConnection = MM_connEPObjectProps_STRING 

7 rsMapInfo. Source = "SELECT * FROM maplnfo" 

8 rsMapInfo. CursorType = 0 

9 rsMapInfo .CursorLocat ion = 2 

10 rsMapInfo .LockType = 3 

11 rsMapInfo .Open ( ) 

12 rsMapInfo_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

2 1 rsTitleText . Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <!— #include f ile=" ../.. /global . asp" --> 

25 <html> 

26 <head> 

27 <title>Company Map</title> 

28 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

29 </head> 

30 <body bgcolor="#<%= (EP_bgcolor ) %>" 

31 text="#<%=EP_text%>" 

32 link="#<%=EP_link%>" 

33 vlink="#<%=EP_vlink%>" 

34 alink="#<%=EP_alink%>" 

35 leftmargin="3" 

36 topmargin="0" 

37 marginwidth="0" 

38 marginheight="0" 

39 background=" . . / . . /<%= (EP_bgImg) %>"> 

40 <I — #include f ile=" ../.. /banner . asp" — > 

41 <br> 

42 <table width="500" border="l" align="center" bordercolor="#<%=EP bordercolor%>" cellspacing="0 
"> ~ 

43 <tr> 

44 <td> 

45 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

46 <tr> 

47 <td align="center" colspan="2"> 

48 <div align="center"><font face=" sans-serif " size="2"xb> 

49 <% 

50 'check to see which Title Text file is selected 

51 cycleDone = false 

52 Dim titleTextFile 
53 

54 While (NOT rsTitleText .EOF) 
55 

56 If (rsTitleText. Fields. Item("EP_isSelected") .Value - "True") Then 

57 titleTextFile = rsTitleText . Fields . Item ("EPJzitleTextFile") .Value 

58 End If 

59 rsTitleText .MoveNext 

60 , Wend 

61 %> 

62 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http: //do 
wnload. macromedia. com/pub/shockwave/cabs/f lash/swf lash.cab#version=4, 0, 2, 0" width="480" height 
=»40"> 

63 <param name="movie" value=" ../. ./banners/titleText/<%= (titleTextFile) %>?txt=<P 
, AL IGN= 1 CENTER f > < FONT COLOR= 1 # < % = E P_ t e xt % > 1 >Company Map< /FONT > < / P> " > 

•64 . <param name=wmode value=transparent> " * 

•65 ' : <param name=quality value=high> 
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66 <embed src=" . ./ . . /banners/titleText/<%= ( titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 
XFONT COLOR- 1 #<%=EP_text%> ' >Company Map</FONTX/P>" quality=high pluginspage="http : //www .macr 
omedia . com/shockwave/dovmload/ index . cgi?Pl_Procl_Version=ShockwaveFlash ,, type-"application/x-sh 
ockwave-flash" width="480" height="40"> 

67 </embed> 

68 </objectx/bx/fontx/div> 

69 </td> 

70 </tr> 

71 <tr> 

72 <td colspan="2"> 

73 <hr color-" #<%=EP_bordercolor%>"> 

74 </td> 

75 </tr> 

76 <tr> 

77 <td colspan="2"> 

78 <div align="center"xfont f ace="sans-serif " size="2"> <A HREF="<%= (rsMapInfo . Field 
s.Item("EPak_mapURL") .Value) %>"xbr> 

79 Click here for a map and driving directions ! </A><br> 

80 <br> 

81   </fontx/div> 

82 </td> 

83 </tr> 

84 <tr> 

85 <td> 

86 <div align="center"xfont f ace=" sans-serif " size-"2">Maps provided 

87 by:</fontx/div> 

88 </td> 

89 <td bgcolor-" #FFFFFF"> 

90 <div align="center"> 

91 <% 

92 If (rsMapInfo. Fields. Item ( "EPak_mapIMG" ) .Value = "mapquest.gif") Then 

93 %> 

94 <A HREF= n http://www.mapquest.com f, > 

95 <% 

96 Else 

97 %><A HREF= "http://maps.yahoo.com"> 

98 <% 

99 End If 

00 %> 

01 <img border=0 src==" ../../ images/mapsvcs/<%=rsMapInfo . Fields . Item ( "EPak_mapIMG" ) . 
Value%>" width-"250" height="59"> 

02 </A> </div> 

03 </td> 

04 </tr> 

05 <tr> 

06 <td colspan="2"> 

07 <hr color-" #<%=EP_bordercolor%>"> 

08 </td> 

09 </tr> 

10 <tr> 

11 <td colspan-"2"> 

12 <div align="center"> </div> 

13 </td> 

14 </tr> 

15 </table> 

16 </td> 

17 </tr> 

18 </table> 

19 </body> 

20 </html> 

21 <% 

22 rsMapInfo.CloseO 

23 %> 

24 <% 

25 rsTitleText .Close () 

26 %> 
27 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 < ! — #include file= M . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 ■ *** Edit Operations: declare variables 
6 

7 MM_editAction = CStr (Request ( "URL" ) ) 

8 If (Request .QueryString <> "") Then 

9 MM_editAction = MM_editAction & "?" & Request . QueryString 
10 End If 

11 

12 1 boolean to abort record edit 

13 MM_abortEdit = false 
14 

15 1 query string to execute 

16 MM_editQuery = "" 

17 %> 

18 <% 

19 ' *** Insert Record: set variables 
20 

21 If (CStr (Request ("MM_insert") ) <> "") Then 
22 



23 MM_editConnection = MM_dbE Pa kRe co r ds_S TR I NG 

24 MM_editTable = "userlnquiries" 

25 MM_editRedirectUrl = "msgThanks .asp" 

26 MM_fieldsStr = "email I value I textf ield I value I inqOptions I value" 

27 MM_columnsStr = "QC_usr Email I ',none, ' f |QC_usrMsg| 1 ,none, f 1 I QC_usrOptions I f ,none, f ? " 
28 

29 1 create the MM_fields and MM_columns arrays 

30 MM_f ields = Split (MM_f ieldsStr , "I") 

31 MM_columns = Split (MM_columnsStr r "|") 
32 

33 f set the form values 

34 For i = LBound(MM_fields) To UBound(MM_f ields) Step 2 

35 MM_f ields (i+1) = CStr (Request . Form (MM_f ields (i) ) ) 

36 Next 
37 

38 1 append the query string to the redirect URL 

39 If (MM_editRedirectUrl <> "" And Request .QueryString <> "") Then 

40 If (InStrd, MM_editRedirectUrl, "?", vbTextCompare). = 0 And Request .QueryString <> "") Th 
en 

41 MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request . QueryString 

42 Else 

43 MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request .QueryString 

44 End If 

45 End If 



46 

47- End If 

48 %> 

49 <% 

50 1 *** Insert Record: construct a sql insert statement and execute it 
51 

52 If (CStr (Request ( "MM_insert" ) ) <> "") Then 



53 

54 1 create the sql insert statement 

55 MM_tableValues = "" 

56 MM_db Values = "" 

57 For i == LBound (MM_f ields) To UBound (MM_f ields) Step 2 

58 FormVal = MM_f ields (i+1) 

59 MM_typeArray = Split (MM_columns (i+1) ,", ") 

60 Delim = MM_typeArray (0) 

61 If (Delim = "none") Then Delim = "" 

62 AltVal = MM^typeArray (1) 

63 If (AltVal = "none") Then AltVal = "" 

64 EmptyVal = MM_typeArray (2) 

65 If (EmptyVal = "none") Then EmptyVal = "" 

66 If (FormVal = "") Then 

67 FormVal = EmptyVal 

68 Else 
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69 If (AltVal <> "") Then 

70 FormVal = AltVal 

71 Elself (Delim = " T ") Then 1 escape quotes 

72 FormVal = " ' " & Replace (FormVal, " ' "," ' ? ") & 

73 Else 

74 FormVal = Delim + FormVal + Delim 

75 End If 

76 End If 

77 If (i <> LBound(MM_fields) ) Then 

78 MM_tableValues = MM_t able Values & "," 

79 MM_db Values = MM_db Values & 

80 End if 

81 MM_t able Values = MM_tableValues & MM_columns (i) 

82 MM dbValues = MM dbValues & FormVal 



83 Next 

84 MM_editQuery = "insert into " & MM_editTable & " (" & MM__tableValues & ") values (" & MM_dbV 
alues & ") " 



85 

86 If (Not MM_abortEdit) Then 

87 f execute the insert 

88 Set MM_editCmd = Server. Creat eOb j ect ("ADODB. Command") 

89 MM__editCmd. ActiveConnection = MM__editConnection 

90 MM_editCmd.CommandText = MM_editQuery 

91 MM_editCmd. Execute 

92 MM_editCmd. Act iveConnect ion. Close 
93 

94 If (MM_editRedirectUrl <> "") Then 

95 Response . Redirect (MM_edi tRedirectUrl ) 

96 End If 

97 End If 
98 



99 End If 

,00 %> 

.01 <% 

02 set rsTitleText = Server .CreateObj ect ( "ADODB .Recordset" ) 

03 rsTitleText .ActiveConnection = MM__dbEPakLibs_STRING 

04 rsTitleText. Source = "SELECT * FROM titleText" 

05 rsTitleText .CursorType =0 

06 rsTitleText .CursorLocation = 2 

07 rsTitleText .LockType = 3 

08 rsTitleText .Open () 

09 rsTitleText_numRows = 0 

10 %> 

11 <% 

12 set rsInqOptions = Server. CreateObj ect ("ADODB. Recordset") 

13 rsInqOptions. ActiveConnection = MM_dbEPakRecords_STRING 

14 rsInqOptions. Source = "SELECT * FROM inqOptions" 

15 rsInqOptions. CursorType = 0 

16 rsInqOptions .CursorLocation = 2 

17 rsInqOptions .LockType = 3 

18 rsInqOptions .Open ( ) 

19 rsInqOptions__numRows = 0 

20 %> 

21 <% 

22 Dim Repeat 1 numRows 

23 Repeat 1 numRows = -1 

24 Dim Repeat 1 index 

25 Repeat 1 index = 0 

26 rsInqOptions_numRows = rsInqOptions_numRows + Repeatl numRows 

27 %> 

28 <! — #include f ile=" ../.. /global .asp" — > 

29 <htral> 

30 <head> 

31 <SCRIPT LANGUAGE 55 " JavaScript " > 



32 <% 

33 arlen = 0 

34 rsInqOptions .MoveFirst ( ) 

35 While (NOT rsInqOptions .EOF) 

36 arlen = arlen + 1 
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137 rsInqOptions .MoveNext ( ) 

L38 Wend 

L39 rsInqOptions .MoveFirst { ) 

L40 %> 

141 

142 chkArray = new Array (<%=arlen%>) ; 

143 for (i=0; i<=<%=arlen%>; i++) { 

144 chkArray[i] = 0; 

145 } 
146 

147 function jsChangeOption (val, id) { 

148 store = ""; 

L49 if (chkArray [val] == 0) { 

150 chkArray [val] = id; 

.51 } else { 

.52 chkArray [val] = 0; 

.53 } 

.54 for (i=0; i<= (chkArray . length - 2); i++) { 

.55 store = store + chkArray [i] + "I"; 

156 } 

.57 document. inquiries . inqOpt ions. value = store; 

.58 } 

.59 </SCRIPT> 

.60 <title>Questions & Comments</title> 

.61 <meta http-equiv="Content-Type" content=" text /html; charset=iso-8859-l"> 

.62 </head> 

.63 <body bgcolor="#<%= (EPJsgcolor) %>" 
.64 text="#<%=EP_text%>" 
.65 link="#<%=EP_link%>" 
.66 vlink="#<%=EP_vlink%>" 
.67 alink="#<%=EP_alink%>" 

68 leftmargin="3" 
.69 topmargin="0" 

7 0 mar ginwi dth= " 0 " 

71 marginheight=" 0 " 

72 background^" . ./. . /<%= (EP_bgImg) %>"> 

73 <! — #include f ile=" ../.. /banner . asp" — > 

74 <br> 

75 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 
"> 

76 <tr> 

77 <td> 

78 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

79 <tr> 

80 <td align="center"> 

81 <% 

82 'check to see which Title Text file is selected 

83 cycleDone = false 

84 Dim titleTextFile 
85 

86 While (NOT rsTitleText .EOF) 

87 

88 If (rsTitleText. Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

89 titleTextFile = rsTitleText . Fields . Item ( "EP__titleTextFile" ) .Value 

90 End If 

91 rsTitleText .MoveNext 

92 Wend 

93 %> 

94 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
load. macromedia.com/pub/shockwave/cabs/flash/ swf lash.cab#version=4, 0, 2, 0" width="480" height=" 
40"> 

95 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN= f CENTER 'X FONT C0L0R= 1 #<%=EP_text%> 1 >Questions %26 Comments</FONTX/P>"> 

96 <param name=wmode value=transparent> 

97 <param name=quality value=high> 

98 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P AL I GN=' CENTER f >< 
£ FONT C0L0R= »■ #<%=EP_text %> 1 >Quest ions . %26 Comment s</F0NT></P>" quality=high pluginspage="http: / 

/www.macromediav-com/shockwave/cto type="applica- 
:V tion/x-shockwave-flash" widt h= " 480 " he i gh t = " 40 " > 
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L99 




</embed> 


200 




</object> </td> 


201 




</tr> 


202 




<tr> 


203 




<td> 


204 




<hr color="#<%=EP bordercolor%>"> 


205 




</td> 


206 




</tr> 


207 




<tr> 


208 




<td> 


209 




<div align="center"x/div> 


210 




</td> 


211 




</tr> 


212 




<tr> 


!13 




<td> 


114 




<form method="POST" name=" inquiries" action^" <%=MM editAction%>"> 
<table width="75%" border="0" align="center"> 


!15 




116 




<tr> 


111 




<td> 


11B 




<div align="center"xfont face="sans-serif " size="2">This 


!19 




page will allow you to send to us any inquiries<br> 


!20 




you may have .     Simply fill out the following f orm, <br> 


121 




and we will respond to your inquiry as quickly as we can.<br> 


\22 




<br> 


:23 




We respect your privacy, so your email address<br> 


!24 




is not required.     However, if you are seeking<br> 


!25 




an answer to questions, we will need it<br> 


!26 




in order to respond,     Any information<br> 


!27 




you send to us will remain confidential, <br> 


:28 




nor will your email address<br> 


:29 




<b>ever</b> be given to <b>any</b> third parties. <br> 


:30 




<br> 


!31 




Please provide your home<br> 


:32 




or business address if requesting a brochure .<br> 


:33 




  </fontx/div> 


•34 




</td> 


35 




</tr> 


36 




<tr> 


37 




<td><font face="sans-serif " size="2">Email Address (not required) :  </fo 




nt> 


38 




<input type="text" name=" email" size="35"> 


39 




</td> 


40 




</tr> 


41 




<tr> 


42 




<tdxfont face="sans-serif " size="2">Your Message : </fontxbr> 


43 




<textarea name="textf ield" cols="50" wrap= "VIRTUAL" rows="4"x/textarea> 


44 




</td> 


45 




</tr> 


46 




<tr> 


47 




<td> 


48 




<table width="100%" border="0"> 


49 




<% 


50 


arlen= 


;0 


51 


While 


((Repeatl numRows <> 0) AND (NOT rsInqOptions . EOF) ) 


52 


%> 




53 




<tr> 


54 




<td width="5 n > 



55 <input type=" checkbox" name=" inqOpt<%= (rsInqOptions . Fields . Item ( "ID" 
) .Value) %>" value="true" onClick=" jsChangeOption (<%=arlen%>, <%= (rsInqOptions . Fields . Item ( "ID" 
) .Value) %>)"> 

56 </td> 

57 <tdxfont face="Arial, Helvetica, sans-serif" size="l"x%= (rsInqOption 
s . Fields . Item ( "EP_inqName" ) .Value) %x/fontx/td> 

58 </tr> 

59 <% 

60 arlen = arlen + 1 

61 Repeatl index=Repeatl index+1 

62 Repeatl numRows=Repeatl numRows-1 

63 rsInqOptions. MoveNext () 
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!64 Wend 
:65 %> 



:66 </table> 
:67 </td> 
!68 </tr> 
!69 <tr> 
:70 <td> 

:71 <input type=" submit" name=" Submit" value="Send us your message" style=" 

\12 border-color: #<%=EP_bordercolor%>; 

:73 border-style: groove; 

:74 border-width: 3px; 

75 . background-color: #<%=EP_bgcolor%>; 

76 color: #<%=EP_text%>; 

77 cursor: hand;"> 

78 </td> 

79 </tr> 

80 </table> 

81 <input type="hidden" name="MM_insert " value="true"> 

82 <input type="hidden" name="inqOptions" value="0|0"> 

83 </form> 

84 </td> 

85 </tr> 

86 <tr> 

87 <td> 

88 <hr color="#<%=EP_bordercolor%>"> 

89 </td> 

90 </tr> 

91 <tr> 

92 <td> 

93 ' <div align="center"> </div> 

94 </td> 

95 </tr> 

96 </table> 

97 </td> 

98 </tr> 



99 </table> 

00 </body> 

01 </html> 

02 <% 

03 rsTitleText -Close () 

04 %> 

05 <% 

06 rsInqOptions . Close ( ) 

07 %> 
08 
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1 < %@ LANGUAGE = " VBSCRI PT " %> 

2 <! — #include f ile=" . . / . . /Oonnections/dbEPakRecords . asp" — > 

3 <! — #include file=" . . /. . /Connect ions/dbEPakObjectProps .asp" — > 

4 <! — #include f ile=" . . /. . /Connections/dbEPakAppearance .asp" — > 

5 <% 

6 set rsOwnerlnfo = Server. CreateOb j ect ("ADODB. Recordset") 

7 rsOwnerlnfo .ActiveConnection = MM_dbEPakRecords_STRING 

8 rsOwnerlnfo. Source = "SELECT * FROM adminlnfo" 

9 rsOwnerlnfo.CursorType = 0 

10 rsOwnerlnfo .CursorLocation = 2 

11 rsOwnerlnfo.LockType = 3 

12 rsOwnerlnfo .Open ( ) 

13 rsOwnerInfo_numRows = 0 

14 -%> 

15 <% 

16 set rsCouponlnfo = Server .CreateOb j ect ("ADODB. Recordset") 

17 rsCouponlnfo. ActiveConnection = MM_connEPObjectProps_STRING 

18 rsCouponlnfo. Source = "SELECT coupon_title, coupon_expDate FROM coupon" 

19 rsCouponlnfo. CursorType = 0 

20 rsCouponlnfo. CursorLocation = 2 

21 rsCouponlnfo. LockType = 3 

22 rsCouponlnfo . Open ( ) 

23 rsCouponlnf o_numRows = 0 

24 %> 

25 <% 

26 set rsGreeting = Server .CreateOb j ect ( "ADODB. Recordset") 

27 rsGreeting. ActiveConnection = MM_dbEPakAppearance_STRING 

28 rsGreeting. Source = "SELECT * FROM greeting" 

29 rsGreeting. CursorType = 0 

30 rsGreeting. CursorLocation = 2 

31 rsGreeting. LockType = 3 

32 rsGreeting . Open ( ) 

33 rsGreeting_numRows = 0 

34 %> 

35 <% 

36 set rsEP_Pages = Server .CreateOb j ect ( "ADODB. Recordset") 

37 rsEP_Pages. ActiveConnection = MM_dbEPakAppearance_STRING 

38 rsEP_Pages . Source = "SELECT epak_coupon FROM pages" 

39 rsEP_Pages. CursorType = 0 

40 rsEP_Pages. CursorLocation = 2 

41 rsEP_Pages. LockType = 3 

42 rsEP_Pages . Open ( ) 

43 rsEP_Pages_numRows = 0 

44 %> 

45 <!~#include f ile=" ../.. /global . asp" — > 

46 <% 

47 ? Split Greeting VBClf so it appears properly 
48 

49 greetStr = rsGreeting. Fields . Item( "EPak_Greeting" ) .Value 
50 

51 greetAr = Split (greetStr, VBCrLf) 

52 greetStr Join = Join (greetAr, "<BR>") 
53 

54 %> 

55 <% 

56 If (NOT rsCouponlnfo. EOF) Then 



57 rsCouponlnfo .MoveFirst ( ) 

58 couponExpired - false 

59 writeCoupon = false 

60 While (NOT rsCouponlnf o .EOF) 
61 

62 If (rsCouponlnfo. Fields. Item ( "coupon_expDate" ) .Value <> "") Then 

63 expireDate = rsCouponlnfo. Fields. I tern ("coupon_expDate") .Value 

64 expireArray = Split (expireDate, "/") 
65 

66 currentDate = Date 1 currentDate = server's current date (MM/DD/YY) 

67 currentArray = Split (currentDate, "/" ) 

68 1 compare values, first year, then month, then day. 

69 1 if current values are greater than expire values, then respond 
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70 ' with a CANCEL variable 

71 

72 if (Int (currentArray (2) ) > Int (expireArray (2) ) ) Then 

73 couponExpired = true 

74 End If 
75 

76 If (Int (currentArray (0) ) > Int (expireArray (0) ) ) Then 

77 couponExpired = true 

78 End If 
79 

80 If (Int (currentArray (1) ) > Int (expireArray (1) ) ) Then 

81 couponExpired = true 

82 End If 

83 End If 
84 

85 If (NOT couponExpired) Then 

86 writeCoupon = true 

87 End If 
88 

89 rsCouponlnf o .MoveNext ( ) 

90 Wend 

91 rsCouponlnf o. MoveFirst () 



92 End If 

93 %> 

94 <html> 

95 <head> 

96 <title>Home Page</title> 

97 <meta http-equiv="Content-Type" content=" text/html; • charset=iso-8859-l"> 

98 </head> 

99 <body bgcolor=" #<%= (EP_bgcolor) %>" 



00 text="#<%=EP_text%>" 

01 link="#<%=EP_link%>" 

02 vlink="#<%=EP_vlink%>" 

03 alink="#<%=EP_alink%>" 

04 leftmargin="3" 

05 topmargin="0" 

0 6 marginwidth= " 0 " 

0 7 marginheight= " 0 " 

08 background=" . . / . . /<%= (EPJbglmg) %>"> 



09 <! — #include f ile=" . ./. ./banner .asp" — > 

10 <br> 

11 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 



12 <tr> 

13 <td> 

14 <table width="100%" border="0 H align="center" bgcolor="#<%=EP_bgcolor%>"> 

15 <tr> 

16 <td> 

17 <div align="center"xfont f ace="sans-serif " size= l, 2 ,, >Welcome to the 

18 <%= (rsOwner Info. Fields. I tern ( "EP_clientBizName 11 ) .Value) %> website !</fontx/div> 

19 </td> 

20 </tr> 

21 <tr> 

22 <td> 

23 <hr color="#<%=EP_bordercolor%> r, > 

24 </td> 

25 </tr> 

26 <tr> 

27 <tdxfont face="sans-serif " size= ,, 2"><%= (greetStr Join) %></fontx/td> 

28 </tr> 

29 <tr> 

30 <td> 

31 <% 

32 If ( (rsEP_Pages. Fields. Item ("epak_coupon") .Value) = "True" AND NOT couponExpired) Then 

33 %> 

34 <hr color="#<%=EP_bordercolor%>"> 

35 <% 

36 - End If 

;37, %> 
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138 </td> 

139 </tr> 

140 <tr> 

141 <td> 

142 <div align="center"> 

143 <% 

144 If ( (rsEP_Pages. Fields. I tem ( "epak_coupon" ) .Value) = "True" AND writeCoupon) Then 

145 %> 

146 <a href="coupon.asp"xfont f ace="sans-serif " size="2"xb>Web Coupon! !</bx/font> 
<br> 

147 <img src=" . . / . . /images/misc/coupon. gif " border="0"x/a> 

148 <% 
L49 End If 
L50 %> 

LSI </div> 
.52 </td> 
.53 </tr> 
.54 <tr> 
L55 <td> 

156 <hr color="#<%=EP_bordercolor%>"> 

.57 </td> 
.58 </tr> 
.59 <tr> 
.60 <td> 

61 <div align="center"xfont face="Arial, Helvetica, sans-serif" size="l">Copyright 

-62 ©2002 Deanne & Wayne & Co. All rights reserved. <br> 

63 No portion of this publication may be reproduced in any form<br> 

64 or by any means without written permission of Deanne & Wayne 
.65 & Co.<br> 

66 All trademarks and registered trademarks are the sole property of 

67 their respective owners. <br> 

68 Please send questions or comments regarding this site to the <a href="mailto : epa 
ck@casualplus.com?subject=Inquiry%20from%20QCA%20Customer M >webmaster</a>.<br> 

69 <br> 

70 Website Production by<br> 

71 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //do 
wnload.macromedia.com/pub/shockwave/cabs/flash/swflash. cab#version=4, 0, 2, 0" width="88" height= 
"65"> 

72 <param name="movie" value=" . . / . . /images /d&wlogo . swf "> 

73 <param name=quality value=high> 

74 <embed src=" . ./. ./images/d&wlogo.swf " quality=high pluginspage=="http : //www. mac 
romedia.com/shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-s 
hockwave-flash" width="88" height=" 65"> 

75 </embed> 

7 6 </objectxbr> 

77 E-Pack Copyright ©2002 D&W Multimedia</fontx/div> "** 

78 </td> 

79 </tr> 

80 </table> 

81 </td> 

82 </tr> 



83 </table> 

84 </body> 

85 </html> 

86 <% 

87 rsOwner Inf o . Close ( ) 

88 %> 

89 <% 

90 rsCouponlnfo. Close ( ) 

91 %> 

92 <% 

93 rsGreeting. Close () 

94 %> 

95 <% 

96 rsEP_Pages .Close ( ) 

97 %> 
98 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <html> 

3 <head> 

4 <title>Welcome to the <%=Application ( " epakjDizName" ) %> website !</title> 

5 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-l "> 

6 <link rel="icon" href=" . . / . . /f avicon. ico"> 

7 <L INK REL=" SHORTCUT ICON" HREF= "../.. /f avicon . ico"> 

8 </head> 

9 <frameset cols="155, *" rows="*" border="0" f ramespacing="0" f rameborder="NO"> 
LO <frame name="epak_menu" noresize src="menu. asp"> 

LI <frame name="epak_main" s rc=" home .asp" > 

12 </frameset> 

13 <noframes> 

14 <body bgcolor="#FFFFFF" text="#000000"> 
'.5 </body> 

.6 </noframes> 

.7 </html> 
.8 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 < ! — #include f ile= M . . / . . /Connect ions/dbEPakLibs . asp" — > 

4 <% 

5 set rsEPakFAQ = Server .CreateObject ( "ADODB .Recordset" ) 

6 rsEPakFAQ .ActiveConnect ion = MM_dbEPakRecords_STRING 

7 rsEPakFAQ. Source = "SELECT * FROM FAQ" 

8 rsEPakFAQ. CursorType = 0 

9 rsEPakFAQ. CursorLocation = 2 

10 rsEPakFAQ. LockType = 3 

11 rsEPakFAQ.OpenO 

12 rsEPakFAQ_numRows = 0 

13 %> 

14 <% 

15 set rsFAQCats = Server .CreateObject ("ADODB. Recordset") 

16 rsFAQCats. ActiveConnection = MM_dbEPakRecords_STRING 

17 rsFAQCats. Source = "SELECT * FROM FAQCats" 

18 rsFAQCats. CursorType = 0 

19 rsFAQCats .CursorLocation = 2 

20 rsFAQCats. LockType = 3 

2 1 rsFAQCats . Open ( ) 

22 rsFAQCats_numRows = 0 

23 %> 

24 <% 

25 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

26 rsTitleText. ActiveConnection = MM_dbEPakLibs_STRING 

27 rsTitleText. Source = "SELECT *. FROM titleText" 

28 rsTitleText .CursorType = 0 

29 rsTitleText .CursorLocation = 2 

30 rsTitleText .LockType = 3 

31 rsTitleText . Open ( ) 

32 rsTitleText_numRows = 0 

33 %> 

34 <!— ttinclude f ile=" ../.. /global . asp" — > 

35 <html> 

36 <head> 

37 <title>Frequently Asked Questions</title> 

38 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

39 </head> 

40 <body bgproperties=fixed bgcolor="#<%= (EP_bgcolor) %>" 



41 text="#<%=EP_text%>" 

42 link="#<%=EP_link%>" 

43 vlink="#<%=EP_vlink%>" 

44 alink="#<%=EP_alink%>" 

45 leftmargin="3" 
4 6 topmargin=" 0 " 

4 7 mar ginwidth= " 0 " 

4 8 marginheight= " 0 " 

49 background^ 1 . ./. . /<%= (EP_bgImg) %>"> 

50 <! — #include file=" ../. ./banner .asp" — > 

51 <br> 

52 <center> 

53 <table width="500" border="l" align="center" bordercolor="#<%=EP bordercolor%>" cellspacing= 
"0"> " 

54 <tr> 

55 <td> 

56 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

57 <tr> 

58 <td align="center"> 

59 <% 

60 1 check to see which Title Text file is selected 

61 cycleDone = false 

62 Dim titleTextFile 
63 

64 While (NOT rsTitleText .EOF) 

65 

66 If (rsTitleText. Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

67 titleTextFile = rsTitleText . Fields . Item ( "EP_titleTextFile" ) .Value 

68 End If 
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69 rsTitleText .MoveNext 

70 Wend 

71 %> 

72 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8~444553540000" codebase="http : //do 
wnload.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0, 2,0" width="480" height 
="40"> 

73 <param name="movie" value=". ./. . /banners/titleText/<%= ( titleTextFile) %>?txt=<P 
ALIGN= 1 CENTER 1 XFONT COLOR= 1 #<%=EP _text%> 1 frequently Asked Questions</FONTX/P>"> 

74 <param name=wmode value=transparent> 

75 <param name=quality value=high> 

76 <embed src=" . ./. . /banners/titleText/<%= ( titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 
XFONT COLOR= f #<%=EP_text%> 1 frequently Asked Questions</FONTX/P>" quality=high pluginspage=" 
http: //www. macromedia. com/ shockwave/download/index.cgi?Pl_Prod_Version=ShockwaveFlash" type="a 
pplication/x-shockwave-f lash" width="480" height="40"> 

77 </embed> 

78 </object> </td> 

79 </tr> 

80 <tr> 

81 <td> 

82 <hr color="#<%=EP_bordercolor%>"> 

83 </td> 

84 </tr> 

85 <tr> 

86 <td> 

87 <div align="center"xfont face="sans-serif " size="2">If you have 

88 any questions about our business, website or products, <br> 

89 please check this FAQ database .     If you cannot find 

90 an answer<br> 

91 to what you're looking for, feel free to send to us your question<br> 

92 via our <a href=" inquiries .asp">Questions & Comments</a> page .</fontx/div 
> 

93 </td> 

94 </tr> 

95 <tr> 

96 <td> 

97 <hr color="#<%=EP_bordercolor%>"> 

98 </td> 

99 </tr> 

00 <tr> 

01 <td bgcolor="#<%=EP_bordercolor%>"xfont f ace="sans-serif " size= ,f 2" color="#<%= (EP 
_bgcolor) %>"xb>  Frequently 

02 Asked Questions :</bx/fontx/td> 

03 </tr> 

04 <tr> 

05 <td> 

06 <% 

07 If (NOT rsFAQCats .EOF) Then 

08 Dim Repeat 2 numRows 

09 rsFAQCats. MoveFirst 

10 While (not rsFAQCats .EOF) 

11 %> 

12 <br> 

13 <font face="sans-serif " size= M 2"xb>       <%=rsFAQCats . Fields . 
Item ( M EPak_FAQCatName" ) . Value %><br> 

14 <br> 

15 </bx/font> 

16 <% 

17 rsEPakFAQ. MoveFirst 

18 While (NOT rsEPakFAQ. EOF) 

19 %> 

20 . <% 

21 If (rsEPakFAQ. Fields. Item( "FAQ_Category" ) .Value = rsFAQCats . Fields . Item ( "EPak_FAQCatNa 
me n ) .Value) Then 

22 %> 

23 <table> 

24 <tr> 

25 <td rowspan="2">      </td> 

26 <tdxa href="#<%= (rsEPakFAQ. Fields . Item( "ID") .Value) %>"xfont f ace="sans-ser 
if" size="2"x%= (rsEPakFAQ. Fields. I tern ("FAQ_Question") .Value) %></f ontx/ax/td> 
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127 </tr> 

128 <tr> 

L29 ctdxfont face="Arial, Helvetica, sans-serif" size«"l"> </fontx/td>' 

L30 </tr> 
131 </table> 
L32 <% 

133 End If 

134 %> 

L35 <% 

136 Repeat 2 index=Repeat2 index+1 

L 37 Repeat2 numRows=Repeat2 numRows-1 

.38 rsEPakFAQ.MoveNext () 

.39 Wend 

.40 %> 

.41 <% 

.42 rsFAQCats. MoveNext 

.43 Wend 

.44 End If 

.45 %> 

.46 <br> 

.47   </td> 

.48 </tr> 

.49 <tr> 

50 <td bgcolor="#<%=EP_bordercolor%> M xfont f ace="sans-serif " size="2" color="#<%= (EP 
^bgcolor) %>"xb>  Frequent 

51 Answers :</bx/fontx/td> 

52 </tr> 

53 <tr> 

54 <td> 

55 <% 

56 If (NOT rsFAQCats .EOF) Then 

57 rsFAQCats .MoveFirst 

58 While (not rsFAQCats .EOF) 

59 %> 

60 <font face="sans-serif " size=2xbxbr> 

61        <%=rsFAQCats . Fields . Item ( "EPak FAQCatName" ) . Value%xbr> 

62 </bx/font> 

63 <% 

64 rsEPakFAQ. MoveFirst 

65 While (NOT rsEPakFAQ.EOF) 

66 %> - 

67 <% 

68 If (rsEPakFAQ. Fields. Item ("FAQ_Category") .Value = rsFAQCats. Fields. Item ("EPak FAQCatNa 
me") .Value) Then ~ 

69 %> 

70 <a name="<%= (rsEPakFAQ. Fields. I tern ("ID") .Value) %>"></a> 

71 <table border="0"> 

72 <tr> 

73 <td rowspan=3>      </td> 

74 </tr> 

75 <tr> 

76 <tdxfont face="sans-serif" size="2"xb>Q</b>:    <ix%= (rsEPakFAQ. F 
ields.Item("FAQj2uestion") .Value) %x/ix/fontx/td> 

77 </tr> 

78 <tr> 

7 9 <tdxbxfont face="sans-serif " size="2">A</fontx/bxfont face="sans-serif " 
size= n 2">:  <%= (rsEPakFAQ. Fields . Item ( "FAQ_Answer" ) .Value) %></fontx/td> 

80 </tr> 

81 </table> 

82 <br> 
33 <% 

84 End If 

85 %> 

36 <% 

37 Repeat 1 index=Repeatl index+1 

8 8 Repeat 1 numRows=Repea 1 1 numRows- 1 

39 rsEPakFAQ.MoveNext ( ) 

90 Wend 

91 %> 
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L92 
;93 
.94 
.95 
L 96 
,97 
.98 
.99 
>00 
!01 
>02 
>03 
!04 
:05 
!06 
:07 

08 
:09 
:10 
:ii 

12 



<% 

rsFAQCats .MoveNext 
Wend 



End If 



</table> 
</td> 
</tr> 



</td> 
</tr> 
<tr> 



</td> 
</tr> 
<tr> 



</td> 
</tr> 



<td> 



<td> 



<hr color="#<%=EP bordercolor%>" 



<div align="center"> </div> 



13 </table> 

14 </center> 

15 </body> 

16 </html> 

17 <% 

18 rsEPakFAQ. Close () 

19 %> 

20 <% 

21 rsFAQCats. Close () 

22 %> 

23 <% 

24 rsTitleText. Close () 

25 %> 
26 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakObjectProps . asp" — > 

3 < ! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

4 <% 

5 set rsCouponlnfo = Server .CreateObject ("ADODB. Recordset" ) 

6 rsCouponlnfo. ActiveConnection = MM_connEPObjectProps_STRING 

7 rsCouponlnfo. Source = "SELECT * FROM coupon" 

8 rsCouponlnfo. CursorType = 0 

9 rsCouponlnfo.CursorLocation = 2 

10 rsCouponlnfo. LockType = 3 

1 1 rsCouponlnfo . Open ( ) 

12 rsCouponInfo_numRows = 0 

13 %> 

14 <% 

15 set rsAdminlnfo = Server .CreateObject ( "ADODB. Recordset " ) 

16 rsAdminlnfo. ActiveConnection = MM_dbEPakRecords_STRING 

17 rsAdminlnfo. Source - "SELECT * FROM adminlnfo" 

18 rsAdminlnfo. CursorType = 0 

19 rsAdminlnfo. CursorLocation = 2 

20 rsAdminlnfo. LockType = 3 

2 1 rsAdminlnfo . Open ( ) 

22 rsAdminInfo_numRows = 0 

23 %> 

24 <% 

25 Dim Repeatl numRows 

26 Repeatl numRows = -1 

27 Dim Repeatl index 

28 Repeatl index = 0 

29 rsCouponInfo_numRows = rs Coupon I nfo_numRows + Repeatl numRows 

30 %> 

31 < #include f ile=" . . / . . /global . asp" ~ > 

32 <title>Web Coupon !</title> 

33 <meta http-equiv="Content-Type" content^" text/html; charset=iso-8859-l"> 

34 </head> 

35 <body bgcolor="#<%=EP_bgcolor%>" 



36 text="#<%=EP_text%>" 

37 link="#<%=EP_link%>" 

38 alink="#<%=EP_alink%>" 

39 vlink="#<%=EP_vlink%>" 

40 leftmargin="15" 

41 background=" . . / . . /<%= (EP_bgImg) %>" 

42 topmargin="0"> 

43 <!— #include f ile=" ../. ./banner .asp" — > 

44 <br> 

45 <table border="l" bordercolor="#<%=EP_bordercolor%>" bgcolor="#<%=EPJbgcolor%>" cellpadding="0 
11 cellspacing="0" align="center" width="530"> 

46 <tr> 

47 <td> 

48 <table width-"100%" border= ,, 0 H > 

49 <tr> 

50 <td align="center"xfont f ace="sans-serif " size="2"xb>Complimentary 

51 Web Coupon (s) ! </bx/font></td> 

52 </tr> 

53 </table> 

54 <% 

55 dateAr = Split (Date, "/") 

56 While ((Repeatl numRows <> 0) AND (NOT rsCouponlnfo .EOF) ) 

57 

58 couponExpired = false 
59 

60 expireDate = rsCouponlnf o. Fields. Item("coupon_expDate") .Value 

61 expireArray = Split (expireDate, "/") 
62 

63 currentDate = Date 1 currentDate = server's current date (MM/DD/YY) 

64 currentArray = Split (currentDate, "/") 

65 ' compare values, first year, then month, then day. 

66 1 if current values are greater than expire values, then respond 

67 1 with a CANCEL variable 
68 
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69 if (Int (currentArray (2) ) > Int (expireArray (2) ) ) Then 

70 couponExpired = true 

71 End If 
72 

73 If (Int (currentArray (0) ) > Int (expireArray (0) ) ) Then 

74 couponExpired = true 

75 End If 
76 

77 If (Int (currentArray (1) ) > Int (expireArray (1) ) ) Then 

78 couponExpired = true 

79 End If 
80 

81 If (NOT couponExpired) Then 

82 %> 

83 <table bordercolor="#000000" style="border-style : dashed;" bgco lo r= " # FFFFFF" align="cent 
er"> 

84 <tr> 

85 <td> 

86 <table border="0" width="510" height="156" cellpadding="0" cellspacing="0"> 

87 <tr> 

88 <td> 

89 <% 

90 couponFile = rsCouponlnfo . Fields . Item( "coupon_File" ) -Value 
91 

92 

93 subCaption_SPLIT = Split (rsCouponlnfo . Fields . Item ( "coupon_subCaption" ) .Value, "%") 

94 subCaptionl = Join (subCaption_SPLIT, "%25") 
95 

96 priceValuel_SPLIT = Split (rsCouponlnfo . Fields . Item ( "coupon_priceValue" ) .Value, "%") 

97 priceValuel = Join (priceValuel_SPLIT, "%25") 
98 

99 subCaption2_SPLIT = Split (rsCouponlnfo . Fields . Item("coupon_subCaption2") .Value, "%") 
.00 subCaption2 = Join (subCaption2_SPLIT, "%25") 
01 

02 priceValue2_SPLIT = Split (rsCouponlnfo. Fields. Item ("couponj?riceValue2") .Value, "%") 

03 priceValue2 = Join (priceValue2_SPLIT, "%25") 
04 

05 notesValue_SPLIT = Split (rsCouponlnfo . Fields . Item ( "coupon_notes" ) .Value, "%") 

06 notesValue = Join (notesValue_SPLIT, "%25") 

07 %> 

08 <object classid=="clsid:D27CDB6E-AE6D-llcf-96B8-44455354OO0O" codebase="http : 
//download. macromedia. com/pub/shockwave/cabs/f lash/swf lash.cab#version=5, 0, 0, 0" width="400" he 
ight="190" align="left"> 

09 <param name=movie value=" . . / . . /coupons/<%=couponFile%>?subCaption=<%= (subC 
aptionl) %>&priceValue=<%= (priceValuel) %>&notes=<%= (notesValue) %>&subCaption2=<%= (subCaption2) % 
>&priceValue2=<%=(priceValue2) %>"> 

10 <param name=quality value=high> 

11 <embed src=" . ./ . . /coupons/<%=couponFile%>?subCaption=<%= (subCaptionl) %>&pr 
iceValue=<%= (priceValuel) %>&notes=<%= (notesValue) %>&subCaption2=<%= (subCaption2) %>&priceValue2 
=<%= (priceValue2) %>" quality=high pluginspage="http: //www. macromedia.com/shockwave/download/ in 
dex.cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-shockwave- flash" width="400" heigh 
t="190" align="left"> 

12 </embed> 

13 </object> </td> 

14 <td> 

15 <table border="0" cellpadding="0" cellspacing="0"> 

16 <tr bgcolor="#<%=EP_bgcolor%>"> 

17 <td> 

18 <div align="center"ximg src=" ../... /images/logo sm.gif" width="100" he 
ight="58"x/div> 

19 </td> 

20 </tr> 

21 <tr> 

22 <tdxfont color="#000000" face="sans-serif " size="l"x%= (rsAdminlnfo . Fie 
lds.Item("EP_clientBizName") .Value) %xbr> 

23 <%=( rsAdminlnfo. Fields. Item("EP_clientAddressl") .Value) %xbr^ 

24 <%= (rsAdminlnfo. Fields . Item( "EP_clientCity" ) .Value) %>,  <%= (rsAdmi 
nlnfo. Fields. I tern ( "EP_clientState") .Value) %>    <%=( rsAdminlnfo . Fields . Item ( "EP_client 
ZIP") .Value) %xbr> 
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125 <%=(rsAdminInfo. Fields. Item("EP_clientPhonel") .Value) %> </font> </td> 

126 </tr> 
L27 </table> 
L28 </td> 

129 </tr> 

130 <tr> 

131 <td colspan="2"> 

132 <table border="0" align="center" cellpadding= ,, 0" cellspacing="0"> 

133 <tr> 

134 <td><font size="l ,f f ace="sans-serif " color="#000000">Coupon 

135 expires on <%= (rsCouponlnfo . Fields . Item ( "coupon_expDate" ) .Value) %>. Li 
mit one coupon per customer. Not valid 

L36 with any other of f er . </fontx/td> 

L37 </tr> 

L38 </table> 

.39 </td> 

.40 </tr> 

.41 </table> 

L42 </td> 

L43 </tr> 

.44 </table> 

.45 <BR> 

.46 <% 

.47 End If 

.48 Repeat 1 index=Repeatl index* 1 

. 4 9 Repea 1 1 numRows=Repea 1 1 numRows - 1 

.50 rsCouponlnfo .MoveNext ( ) 
.51 Wend 

.52 %> 

53 <div align="center"xfont f ace="Arial, Helvetica, sans-serif" size="2"> 

54 To redeem your web coupon (s), simply print them out and bring them to 

55 our store !<br> 

56 </fontxfont f ace="Arial, Helvetica, sans-serif ">  </font> </div> 

57 </td> 

58 </tr> 

59 <tr> 

60 <td> 

61 <div align="center"xfont f ace="sans-serif " size="2"ximg src=" . . / . . /images/misc/printer 
.gif" width="20" height="18">To 

62 print these coupon(s), make sure your printer is on, then <a href=" javascript : print () ; 
">click 

63 here</a>.<img src=" ../.. /images/misc/printer .gif 11 width="20" height="18"x/fontx/div> 

64 </td> 



65 </tr> 

66 </table> 

67 </body> 

68 </html> 

69 <% 

70 rsCouponlnfo. Close () 

71 %> 
12 <% 

73 rsAdminlnfo. Close ( ) 

74 %> 
75 
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1 < % e LANGUAGE = "VBSCRI PT " % > 

2 < ! — # include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include file=" ../.. /Connect ions/dbEPakLibs .asp" — > 

4 <% 

5 set rsAdminlnfo = Server. CreateObject ("ADODB. Recordset") 

6 rsAdminlnfo.ActiveConnection = MM_dbEPakRecords_STRING 

7 rsAdminlnfo. Source = "SELECT * FROM adminlnfo" 

8 rsAdminlnfo. CursorType = 0 

9 rsAdminlnfo.CursorLocation = 2 

10 rsAdminlnfo. LockType = 3 

1 1 rsAdminlnfo . Open ( ) 

12 rsAdminInfo_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server. CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnect ion = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

2 1 rsTitleText . Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <!-- #include f ile=" ../.. /global . asp" — > 

25 <html> 

26 <head> 

27 <title>Contact Us</title> 

28 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

29 </head> 

30 <body bgcolor="#<%= (EPJbgcolor) %>" 

31 text="#<%=EP_text%>" 

32 link*" #<%=EP_link%>" 

33 vlink="#<%=EP_vlink%>" 

34 alink="#<%=EP_alink%>" 

35 leftmargin="3" 

36 topmargin="0" 

37 marginwidth="0" 
3 8 mar ginhe i gh t= " 0 " 

39 background^ . ./. . /<%= (EP_bgImg) %>"> 

40 <! — #include file=" ../. ./banner. asp" — > 

41 <br> 

42 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 
"> 

43 <tr> 

44 <td> 

45 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

46 <tr> 

47 <td align="center"> 

48 <% 

49 'check to see which Title Text file is selected 

50 cycleDone = false 

51 Dim titleTextFile 
52 

53 While (NOT rsTitleText .EOF) 

54 

55 If (rsTitleText. Fields. Item("EP_isSelected") .Value = "True") Then 

56 titleTextFile = rsTitleText . Fields . I tern ("EP_titleTextFile") .Value 

57 End If 

58 rsTitleText .MoveNext 

59 Wend 

60 %> 

61 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000 n codebase="http : //down 
load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0,2,0" width="480" height=" 
40"> 

62 <param name="movie" value=" ../.. /banners/ titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN- 1 CENTER 1 >< FONT C0L0R= 1 #<%=EP_text%> 1 >Contact Us</F0NTX/P>"> 

63 <param name=wmode value=transparent> 

64 <param name=quality value=high> 

65 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 >< 
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FONT COLORS #<%=EP_text%> ' >Contact Us</FONTX/p>" quality=high pluginspage="http: //www.macrome 
dia.com/shockwave/download/index .cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-shock 
wave-flash" width="480" height="40"> 

66 </embed> 

67 </object> </td> 

68 </tr> 

69 <tr> 

70 <td> 

71 <hr color="#<%=EP_bordercolor%>"> 

72 </td> 

73 </tr> 

74 <tr> 

75 <td> 

7 6 <div align="center"> 

77 <table width="100%" border="0"> 

78 <tr> 

79 <td> 

80 <div align="center"ximg src=" . . / . . / images/ logojned. gif " width="139" heigh 
t="80"x/div> 

81 </td> 

82 <tdxfont face= ,f sans-serif " size="2">Need a map?<br> 

83 <a href= ,f map.asp">Click here for one ! </a></font></td> 

84 </tr> 

85 <tr> 

86 <td> 

87 <div align="center"xfont f ace="sans-serif " size="2"x%= (rsAdminlnfo . Field 
s.Item("EP_clientBizName") .Value) %><br> 

88 ~ <%= (rsAdminlnfo. Fields. I tern ( "EP_clientAddressl") .Value) %><br> 

89 <%= ( rsAdminlnfo . Fields . Item ( "EP_clientCity" ) .Value) %>, <%= (rsAdminlnfo • F 
ields . Item ( "EP_clientState" ) .Value) %>    <%= ( rsAdminlnfo . Fields . Item ( "EP_clientZIP" ) .V 
alue) %x/fontx/div> 

90 </td> 

91 <tdxfont face="sans-serif " size="2">Telephone :    <%= (rsAdminlnfo . F 
ields. Item ("EP_clientPhonel") .Value) %><br> 

92 <% If (rsAdminlnfo. Fields. Item ( "EP_clientPhone2" ) .Value <> "") Then %> 

93 Alternate:    <%= (rsAdminlnfo. Fields. I tern ("EP_clientPhone2") .Value 
) %xbr> 

94 <% End If %> 

95 Fax:     <%== (rsAdminlnfo . Fields . Item ( "EP_clientFaxl" ) .Value) %><br> 

96 E-Mail :     <a href ="mailto :<%= (rsAdminlnfo . Fields . Item ( "EP_clientE 
maill") .Value) %>"><%= (rsAdminlnf o. Fields. Item ("EP_clientEmaill") .Value) %x/ax/f ontx/td> 

97 </tr> 

98 <tr> 

99 <td colspan= ,, 2"> 

00 <div align= ir center"xbr> 

01 <a href="inquiries.asp"xfont f ace=" sans-serif " size="2">You 

02 can also send us your inquiries by clicking here.</fontx/aXbr> 

03 </div> 

04 </td> 

05 </tr> 

06 </table> 

07 ■ </div> 

08 </td> 

09 </tr> 

10 <tr> 
LI <td> 

12 <hr color="#<%=EP_bordercolor%> ,, > 

13 </td> 

14 </tr> 

15 <tr> 
L6 <td> 

17 <div align="center"> </div> 

18 </td> 

19 </tr> 
10 </table> 

21 </td> 

22 </tr> 

23 </table> 

24 </body> 
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125 </html> 

126 <% 

L27 rsAdminlnfo. Close () 

L28 %> 

L29 <% 

L30 rsTitleText .Close () 

L31 %> 

132 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <!--#include f ile=" . . / . . /Connections/dbEPakRecords .asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 If (Request. Form ("checkout") <> "") Then 
6 

7 Response .Redirect ( "processlnf o . asp" ) 

8 

9 End If 
10 

11 %> 

12 <% 

13 set rsProducts = Server .CreateObject ( "ADODB. Recordset " ) 

14 rsProducts. ActiveConnection = MM_dbEPakRecords_STRING 

15 rsProducts. Source = "SELECT ID, EP_Pname, EP_Pprice, EP_PshipPrice FROM EP_catalog" 

16 rsProducts.CursorType = 0 

17 rsProducts .CursorLocation = 2 

18 rsProducts .LockType = 3 

19 rsProducts .Open ( ) 

20 rsProductsjiumRows = 0 

21 %> 

22 <% 

23 set rsAdminlnfo = Server. CreateObject ("ADODB. Recordset") 

24 rsAdminlnfo. ActiveConnection = MM_dbEPakRecords_STRING 

25 rsAdminlnfo. Source = "SELECT EP_clientBizName, EP_clientAddressl , EP__clientCity, EP_clientStat 
e, EP_clientZIP, EP__clientPhonel, EP_clientEmaill FROM adminlnfo" 

26 rsAdminlnfo.CursorType = 0 

27 rsAdminlnfo. CursorLocation = 2 

28 rsAdminlnfo. LockType = 3 

29 rsAdminlnfo. Open () 

30 rsAdminInfo_numRows = 0 

31 %> 

32 <% 

33 set rsTitleText = Server .CreateObj ect ( "ADODB .Recordset" ) 

34 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

35 rsTitleText .Source = "SELECT * FROM titleText" 

36 rsTitleText. CursorType = 0 

37 rsTitleText .CursorLocation = 2 

38 rsTitleText .LockType = 3 

39 rsTitleText .Open ( ) 

40 rsTitleText_numRows =0 

41 %> 

42 <% 

43 ' cart_qty is numeric field 

44 ' prod_id is ID field (hidden) 

45 If (Session("QTY") <> "" AND Session (" ID" ) <> "") Then 

46 itemsStr = Session ("ID" ) 

47 qtyStr = Session ( "QTY" ) 
48 

49 split I terns = Split (itemsStr, " |") 

50 splitQTY = Split (qtyStr, "I") 
51 

52 End If 
53 

54 If (Session ("QTY") = "") Then 

55 no I terns = true 

56 End If 
57 

58 Dim totalCost 

59 %> 

60 <!~#include file=" ../. ./global. asp" — > 

61 <html> 

62 <head> 

63 <title>Checkout</title> 

64 <meta http-equiv="Content-Type" content=" text /html; charset=iso~8859-l"> 

65 </head> 

66 <body bgcolor="#<%= (EP_bgcolor) %>" 

67 text="#<%=EP_text%>" 

68 link="#<%=EP_link%>" 
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69 vl ink= " #< %=EP_vl in Jc % > " 

70 alink="#<%=EP_alink%>" 

71 leftmargin="3" 

72 topmargin="0" 

73 marginwidth= f, 0" 

74 marginheight="0" 

75 background=". ./. . /<%= (EP_bgImg) %>"> 

7 6 <!— #include f ile=" . ./.. /banner . asp" — > 

77 <br> 

78 <table width="500" border="l" align="center" bordercolor="#<%=EP bordercolor%>" cellspacing="0 
"> 

79 <tr> 

80 <td> 

81 <table width="100%" border="0" align="center" bgcolor=" #<%=EP_bgcolor%>"> 

82 <tr> 

83 <td align="center ,f > 

84 <% 

85 'check to see which Title Text file is selected 

8 6 cycleDone = false 
87 Dim titleTextFile 
88 

89 While (NOT rsTitleText . EOF) 
90 

91 If (rsTitleText. Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

92 titleTextFile = rsTitleText . Fields . Item( "EP_titleTextFile" ) .Value 

93 End If 

94 rsTitleText .MoveNext 

95 Wend 

96 %> ' 

97 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0,2,0" width="480" height=" 
40"> 

98 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN= 1 CENTER 1 >< FONT COLOR= ? #<%=EP_text%> 1 >Checkout</FONTX/P>"> 

99 <param name=wmode value=transparent> 

00 <param name=quality value=high> 

01 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN=' CENTER' >< 
FONT COLOR='#<%=EP_text%>'>Checkout</FONT></P>" quality=high pluginspage="http : //www.macromedi 
a.com/shockwave/download/index.cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-shockwa 
ve-flash" width="480" height="40"> 

02 </embed> ■ ■ . 

03 </object> </td> 

04 </tr> 

05 <tr> 

06 <td> 

07 <hr color="#<%=EP_bordercolor%>"> 

08 </td> 

09 </tr> 

10 <tr> 

11 <td> 

12 <div align="center"xfont f ace="sans-serif " size="2">Below is a list 

13 of items in your Shopping Cart.<br> 

14 <% 

15 If (Request ("checkout") <> "") Then 

16 %> 

17 <a href =" javascript :history.go (-3) ">Click here to go back and continue 

18 shopping. </a> 

19 <% 

20 End If 

21 %> 

22 <% 

23 If (Request ("checkoutLong") <> "") Then 

24 %> 

25 <a href="javascript:history.go(-4) ">Click here to go back and continue 

26 shopping. </a> 

27 <% 

28 End If 

29 %> 

30 <br> 
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L31   
L32 <% 

.33 If (SessionPID") <> "") Then 

134 %> 

135 </fontx/div> 
L36 </td> 

137 </tr> 

138 <tr> 

139 <td> 

L40 <div align="center"> 

! .41 <table width="100%" border="0" cellpadding="l" cellspacing="l"> 

142 <tr> 

-43 <td width="5%"xbxfont f ace="sans-serif " size="2">Quantity</fontx/bx/td> 

.44 <td width="62%"xbxfont f ace="sans-serif " size="2">   Name 

.45 of Item(s)</fontx/bx/td> 

.46 <td width="14%"xbxfont f ace="sans-serif " size="2">Price</fontx/bx/td> 

47 <td width="14%"xfont face="sans-serif " size="2"xb>S&H</bx/fontx/td> 

.48 </tr> 
.49 <% 
.50 If (NOT noltems) Then 
.51 

52 i=0 

53 While (i <= Ubound (split I terns ) ) 

54 %> 

55 <tr> 

56 <td width="5%"> 

57 <div align="center"xfont f ace="sans-serif " size="2"x%=splitQTY (i) %></fon 
tx/div> 

58 </td> 

59 <% 

60 rsProducts .MoveFirst ( ) 

61 While (NOT rsProducts .EOF) 

62 %> 

63 <% 

64 If (CStr (splitltems (i) ) = CStr (rsProducts . Fields . Item ( "ID") .Value) ) Then 
65 

66 itemCost = rsProducts . Fields . Item ( "EP_Pprice" ) .Value * Int (splitQTY (i) ) 

67 shipCost = rsProducts. Fields. Item ("EP_PshipPrice") .Value * Int (splitQTY (i) ) 

68 totalCost = totalCost + shipCost + itemCost 

69 %> 

70 <td width="62%"xfont face="sans-serif " size="2">    <%= 
(rsProducts. Fields. Item( "EP_Pname" ) .Value) %x/fontx/td> 

71 <td width="14%"xfont face="sans-serif " size="2"x%=FormatCurrency (itemCost) 
%x/fontx/td> 

72 <% If (shipCost <> "") Then 

73 %> 

74 <td width="14%"xfont size="2" face="sans-serif"x%=FormatCurrency (shipCost ) 
%x/fontx/td> 

75 <% End If 

76 %> 

77 <% 

78 End If 

79 %> 

30 <% 

31 rsProducts .MoveNext () 

32 Wend 

83 %> 

84 </tr> 

85 <% 

86 i=i+l 
37 Wend 
38 

39 End If 
90 %> 

n </table> 

92 <table width="100%" border="0" cellpadding="0" cellspacing="0"> 

93 <tr> 

94 <td width="82%"> 

95 <div align="right"xbxfont face="sans-serif " size="2">Grand 
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96 Total : </f ontx/bx/div> 

97 </td> 

98 <td width="18%"> 

99 <div align="right"xbxfont f ace="sans-serif " size="2"x%=FormatCurrency ( t 
otalCost) %></fontx/bx/div> 

00 </td> 

01 </tr> 

02 </table> 

03 <form name =l, forml M method="post " action=""> 

04 <input type=" submit 11 name=" Submit" value="Click here to process your order." s 
tyle=" 

05 border-color: #<%=EPJbordercolor%>; 

06 border-style: groove; 

07 border-width: 3px; 

08 background-color : #<%=EP_bgcolor%>; 

09 color: #<%=EP_text%>; 

10 cursor: hand;"> 

11 <input type="hidden" name=" checkout 11 value="true"> 

12 </form> 

13 <% 

14 Else 
L5 %> 
L6 <BR> 

17 Your shopping cart is empty. 

L8 <% 

19 End If 

20 %> 
11 <br> 
22 </div> 
13 </td> 

>4 </tr> 
>5 <tr> 
16 <td> 

11 <hr color="#<%-EP_bordercolor%>"> 

15 </td> 
19 </tr> 

50 <tr> 

31 <td> 

32 <div align="center"> </div> 

33 </td> 

34 </tr> 

35 </table> 

36 </td> 
M </tr> 



38 </table> 

39 </body> 

10 </html> 

11 <% 

12 rsProduct s . Close ( ) 

13 %> 

14 <% 

15 rsAdminlnfo. Close ( ) 

16 %> 

17 <% 

[8 rsTitleText .Close () 

19 %> 
SO 
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1 < % @ LANGUAGE= " VBSCRI PT " % > 

2 <! — Mnclude f ile=" . . / . . /Connections/dbEPakRecords • asp" — > 

3 <! — # include f ile=" . . / . . /Connections/dbEPakObj ectProps . asp" — > 

4 < ! — #include f ile=" . . / . . /Connections/dbEPakAppearance .asp" — > 

5 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

6 <% 

7 set rsProductlnfo = Server .CreateObject ("ADODB. Recordset") 

8 rsProductlnfo.ActiveConnection = MM_dbEPakRecords_STRING 

9 rsProductlnfo. Source = "SELECT * FROM EP_catalog" 

10 rsProductlnfo .CursorType - 0 

11 rsProductlnfo. CursorLocation = 2 

12 rsProductlnfo. LockType = 3 

13 rsProduct Info. Open ( ) 

14 rsProduct Info_numRows = 0 

15 %> 

16 <% 

17 set rsCatFields = Server .CreateObject ("ADODB. Recordset") 

18 rsCatFields. ActiveConnection = MM_connEPObjectProps_STRING 

19 rsCatFields. Source = "SELECT * FROM catalog__booleans" 

20 rsCatFields .CursorType =0 

21 rsCatFields. CursorLocation = 2 

22 rsCatFields .LockType = 3 

23 rsCatFields . Open ( ) 

24 rsCatFields_numRows = 0 

25 %> 

26 <% 

27 set rsIsCartOn = Server .CreateObject ("ADODB. Recordset") v 

28 rsIsCartOn. ActiveConnection = MM_dbEPakAppearance_STRING 

29 rsIsCartOn. Source = "SELECT EPak_cart FROM pages" 

30 rsIsCartOn. CursorType = 0 

31 rsIsCartOn. CursorLocation = 2 

32 rsIsCartOn. LockType = 3 

33 rsIsCartOn.Open ( ) 

34 rsIsCartOn_numRows = 0 

35 %> 

36 <% 

37 set rsTitleText = Server .CreateObj ect ( "ADODB. Recordset " ) 

38 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

39 rsTitleText. Source = "SELECT * FROM titleText" 

40 rsTitleText .CursorType = 0 

41 rsTitleText .CursorLocation = 2 

42 rsTitleText .LockType = 3 
4 3 rsTitleText . Open ( ) 

44 rsTitleText_numRows = 0 

45 %> 

46 <% 

47 i *** Recordset Stats, Move To Record, and Go To Record: declare stats variables 
48 

49 1 set the record count 

50 rsProductInfo_total = rsProductlnfo .RecordCount 
51 

52 1 set the number of rows displayed on this page 

53 If (rsProductInfo_numRows < 0) Then 

54 rsProductInfo_nuiaRows = rsProductInfo_total 

55 Elseif ( rsProduct Info_numRows = 0) Then 

56 rs Product Inf o__numRows = 1 

57 End If 
58 

59 1 set the first and last displayed record 

60 rsProductInfo__f irst = 1 

61 rsProductInfo_last = rsProductInfo_f irst + rsProductInfo_numRows - 1 
62 

63 ' if we have the correct record count, check the other stats 

54 If (rsProduct Inf o_total <> -1) Then 

65 If (rsProduct Inf o_f irst > rsProduct Inf o_total) Then rsProductInfo_f irst = rsProductlnf o_tota 
1 

66 If (rsProduct Inf o_last > rsProductInfo_total) Then rsProductInfo_last = rsProductInfo_total 

67 If (rsProduct Inf o_numRows > rsProductlnf o — total) Then rsProductlnf o_numRows = rsProductlnfo^ 
total 
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68 End If 

69 %> 

70 <% 

71 T *** Move To Record and Go To Record: declare variables 
72 

73 Set MM_rs = rsProductlnfo 

74 MMjrsCount = rsProduct Inf o_total 

75 MM_size = r s Product Inf o_numRows 

76 MM_uniqueCol = "ID" 

77 MM_paramName = "ID" 

78 MM_of fset = 0 

79 MMjatTotal = false 

80 MM_paramIsDe fined = false 

81 If (MM_paramName <> "") Then 

82 MM_paramIsDefined = (Request . QueryString (MM paramName) <> "") 

83 End If 

84 %> 

85 <% 

86 1 *** Move To Specific Record: handle detail parameter 
87 

88 If (MM_paramIsDe fined And MM_rsCount <> 0) Then 



89 

90 1 get the value of the parameter 

91 param = Request . QueryString (MM paramName) 
92 

93 1 find the record with the unique column value equal to the parameter value 

94 MM__of f set =0 

95 Do While (Not MM_rs.E0F) 

96 If (Cstr (MM_rs. Fields. Item (MM_uniqueCol) .Value) = param) Then 

97 Exit Do 

98 End If 

99 MM_offset = MM_offset + 1 

00 MM_rs .MoveNext 

01 Loop 
02 

03 1 if not found, set the number of records and reset the cursor 

04 If (MM_rs .EOF) Then 

05 If (MM_rsCount < 0) Then MM_rsCount = MM_offset 

06 If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM offset 

07 MM_offset = 0 
08 

09 ? reset the cursor to the beginning 

10 If (MM_rs.CursorType > 0) Then 

11 MM_rs .MoveFirst 

12 Else 

13 MM_rs. Close 

14 MM_rs.Open 

15 End If 

16 End If 
17 



18 End If 

19 %> 

20 <% 

21 1 *** Move To Record: if we dont know the record count, check the display range 
23 If (MMjrsCount = -1) Then 



24 

25 1 walk to the end of the display range for this page 

26 i = MM_offset 

27 While (Not MMjrs.EOF And (MM_size < 0 Or i < MM_offset + MM_size) ) 
IS MM_rs.MoveNext 

29 i = i + 1 

30 Wend 
31 

32 1 if we walked off the end of the recordset, set MM rsCount and MM size 

33 If (MM_rs . EOF) Then 

34 MM_rsCount = i 

35 If (MM_size < 0 Or MM_size > MM__rsCount) Then MM size = MM rsCount 

36 End If " " " 
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37 

38 1 if we walked off the end, set the offset based on page size 

39 If (MM_rs .EOF And Not MM_pa rami s Defined) Then 

40 If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then 

41 If ( (MM_rsCount Mod MM_size) > 0) Then 

42 MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) 

43 Else 

44 MM_of f set = MM_rs Count - MM_size 

45 End If 

46 End If 

47 End If 
48 

49 ' reset the cursor to the beginning 

50 If (MM_rs.CursorType > 0) Then 

51 MM_rs.MoveFirst 

52 Else 

53 MM_rs .Requery 

54 End If 
55 

56 1 move the cursor to the selected record 

57 i = 0 

58 While (Not MM_rs.EOF And i < MM_offset) 

59 MM_rs.MoveNext 

60 i = i + 1 

61 Wend 



62 End If 

63 %> 

64 <% 

65 1 *** Move To Record: update recordset stats 
66 

67 ? set the first and last displayed record 

68 rsProductInfo_f irst = MM_offset + 1 

69 rsProductInfo_last = MM_offset + MM_size 

70 If (MM_rsCount <> -1) Then 

71 If (rsProductInfo_first > MM_rsCount) Then rsProductInfo_f irst = MMjrsCount 

72 If (rsProductInfo_last > MM_rsCount) Then rsProductlnf o_last = MM_rsCount 

73 End If 
74 

75 1 set the boolean used by hide region to check if we are on the last record 

76 MM_atTotal = (MMjrsCount <> -1 And MM_offset + MM_size >= MM_rsCount) 

77 %> 

78 <!~#include f ile=" . ./.. /global . asp" — > 

79 <% 

30 switchColors = true 

81 fontcolor = EP_bgcolor 

32 backColor « EP_text 
83 

84 function swapColorsO 



35 If (switchColors <> true) Then 

36 switchColors = true 

37 fontcolor = EP_bgcolor 

38 backColor = EP_text 

39 Else 

90 switchColors = false 

91 fontcolor = EP_text 

92 backColor = EP_bgcolor 

93 End If 



94 end function 

95 

96 

97 %> 

98 <html> 

99 <head> 

30 <title>Product Catalog</title> 

01 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

02 </head> 

03 <body bgproperties=f ixed bgcolor="#<%= (EP_bgcolor) %>" 

04 text= ,, #<%=EP_text%>" 

05 link="#<%=EP_link%>" 
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106 vlink="#<%=EP_vlink%>" 
101 alink="#<%=EP_alink%>" 
208 leftmargin="3" 

109 topmargin="0" 

1 1 0 marginwidth= " 0 " 

111 marginheight="0" 

212 background=" . ./. . /<%= <EP_bgImg) %>"> 

213 <! — #include f ile=" ../.. /banner . asp" — > 

214 <br> 

215 <table width="500" border="l" align="center" bordercolor="#<%=EPJbordercolor%>" cellspacing="0 

216 <tr> 
!17 <td> 

:18 <table width="100%" border="0" align="center" bgcolor="#<%=EP bgcolor%>"> 

:19 <tr> 

'20 <td align="center"> 

21 <% 

22 'check to see which Title Text file is selected 

23 cycleDone = false 

24 Dim titleTextFile 
25 

26 While (NOT rsTitleText . EOF) 

27 

28 If (rsTitleText. Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

29 titleTextFile = rsTitleText . Fields . Item ( "EP titleTextFile") .Value 

30 End If 

31 rsTitleText .MoveNext 

32 Wend 

33 %> 

34 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http: //down 
load. macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0, 2, 0" width="480" heiaht=" 
40"> 

35 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN=' CENTER 'XFONT C0L0R= ' #<%=EP_text%> ' >Product Catalog</FONTx/P>"> 

36 <param name=wmode value=transparent> 

37 <param name=quality value=high> 

38 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= ' CENTER ' X 
FONT COLOR='#<%=EP_text%>'>Product Catalog</FONTX/P>" quality=high pluginspage="http: //www. ma 
cromedia.com/ shockwave/download/ index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x- 
shockwave-f lash" width="480" height="40"> 

39 </embed> 

40 </object> </td> 

41 </tr> 
\2 <tr> 

43 <td> 

44 <hr color="#<%=EP_bordercolor%>"> 

45 </td> 

46 </tr> 

47 <tr> 

48 <td> 

^9 <div align="center"xfont f ace-"sans-serif " size="2"xbxfont size="3"x%= (rsProdu 

ctlnf o. Fields. I tern ("EP_Pname") .Value) %x/fontx/bx/fontx/div> 

50 </td> 

51 </tr> 

52 <tr> 

53 <td> 

54 <div align="center"xfont f ace="sans-serif " size="2"xa href =" javascript : history .b 
ack()">Click 

55 here to go back.</aX/fontx/div> . 

56 </td> 

57 </tr> 

58 <tr> 

59 <td> 

50 <div align="center"xfont f ace="sans-serif " size="2"> 

51 <% 

52 If ( rsCat Fields. Fields. I tern ("EP PboolFBIG") .Value <> "False") Then 

53 %> 

54 <IMG SRC=". ./. ./images/catalog/<%=(rsProductInfo. Fields. Item ("EP PbigFile") .Valu 
e)%>"> 
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lie,-, rfi- :*. t-* ^aa jaaLi • 



<% 

End If 

%> 

<br> 
</font> 

<table width="100%" cellpadding="0" cellspacing="0" bordercolor="<%==EP_bordercol 
or%>"> 
!71 <% 

!72 If (rsCatFields. Fields. Item ( "EP_PboolSKU" ) .Value <> "False") Then 

173 swapColorsO 

174 %> 

!75 <tr bgcolor="#<%=backColor%>" valign="top"> 

:76 <td width="29%"xfont face="sans-serif " size="2" color="#<%=fontColor%>">SKU 

:</font></td> 

:77 <td width="71%"xfont face="sans-serif " size="2" color="#<%=fontColor%>"><%= 

(rsProductlnf o. Fields. Item ("EP_Psku") .Value) %></fontx/td> 

78 </tr> 

79 <% 
:80 End If 

'81 %> 

82 <% 

83 If (rsCatFields. Fields. Item ( "EP_PboolPRC" ) .Value <> "False") Then 

84 swapColorsO 
85 

86 %> 

87 <tr bgcolor="#<%=backColor%>" valign="top"> 

88 <td width="29%"Xfont face="sans-serif " size="2" color="#<%=fontColor%>">Pri 
ce:</fontx/td> 

89 <td width="71%"xfont face="sans-serif " size="2" colors" #<%=fontColor%>"x%= 
FormatCurrency (rsProductlnf o .Fields . Item ("EP_Ppr ice") .Value) %></fontx/td> 

90 </tr> 

91 <% 

92 End If 

93 %> 

94 <% 

95 If (rsCatFields. Fields. Item ("EP_PboolPRC2") .Value <> "False") Then 

96 swapColorsO 
97 

98 %> 

99 <tr bgcolor="#<%=backColor%>" valign="top"> 

00 <td width="29%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>">Com 
pare 

01 to: </fontx/td> 

02 <td width="71%"Xfont f ace="sans-serif " size="2" color="#<%=fontColor%>"x%= 
FormatCurrency (rsProductlnf o . Fields . I tern ( "EP_PotherPrice" ) .Value) %x/f ontx/td> 

03 </tr> 

04 <% 

05 End If 

06 %> 

07 <% 

08 If (rsCatFields. Fields. Item ("EP^PboolWGT") .Value <> "False") Then 

09 swapColorsO 

10 %> 

11 <tr bgcolor="#<%=backColor%>" valign="top"> 

12 <td width="29%"xfont face="sans-serif " size="2" color="#<%=fontColor%>">Wei 
ght:</fontx/td> 

13 <td width="71%"xfont face="sans-serif " size="2" color="#<%=fontColor%>"><%= 
(rsProductlnfo . Fields . I tern ( "EP_Pweight" ) .Value) %>  <%= (rsProductlnf o . Fields . Item ( "EP_Pweig 
htType") .Value) %x/fontx/td> 

14 </tr> 

15 <% 

16 End If 

17 %> 

18 <% ■ * ~* 

19 If (rsCatFields. Fields. Item ( "EP_PboolQTY") .Value <> "False") Then 

20 swapColorsO 
21, %> 

22 <tr bgcolor="#<%=backColor%>" valign="-top"> 

23 <td width="29%"xfont face="sans-serif " size="2" color=" #<%=fontColor%>">Qua 
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nti ty : </ f ontx/ td> 

24 <td width="71%"xfont f ace="sans-serif " size="2" color=" #<%=f ontColor%>"x%= 
(rsProductlnfo. Fields. Item ("EP_Pqty") .Value) %></fontx/td> 

25 </tr> 

26 <% 

27 End If 

28 %> 

29 <% 

30 If (rsCatFields. Fields. Item ( "EP_PboolSHT" ) .Value <> "False") Then 

31 swapColorsO 

32 %> 

33 <tr bgcolor="#<%=backColor%>" valign=" top"> 

34 <td width="29%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>">Shi 
ps 

35 via : < / f ont >< / td> 

36 <td width="71%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>"x%= 
(rsProductlnfo . Fields . Item ( "EP_PshipType" ) .Value) %></fontx/td> 

37 </tr> 

38 <% 

39 End If 

40 %> 

41 <% 

42 If (rsCatFields. Fields. Item ( "EP_PboolSHP" ) .Value <> "False") Then 

43 swapColorsO 

44 %> 

45 <tr bgcolor="#<%=backColor%>" valign="top"> 

46 <td width="29%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>">S&a 
mp;H 

47 Cost :</fontx/td> 

48 <td width="71%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>"x%= 
Forma tCurrency (rsProductlnfo . Fields . Item ( "EP_PshipPrice" ) .Value) %></fontx/td> 

49 </tr> 

50 <% 

51 End If 

52 %> 

53 <% 

54 If (rsCatFields. Fields. Item ( "EP_PboolSDES" ) .Value <> "False") Then 

55 swapColorsO 

56 %> 

57 <tr bgcolor="#<%=backColor%>" valign=" top"> 

58 <td width="29%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>">Sho 
rt  Description :</fontxbxf ont f ace=" sans-serif " size="2" color="#<%=fontColor%>"> 

59 </fontx/bx/td> 

50 <td width="71%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>"x%= 
(rsProductlnfo. Fields. Item ( "EP_PshortDesc" ) .Value) %x/fontx/td> 

51 </tr> 

52 <% 

53 End If 
54. %> 

55 <% 

56 If (rsCatFields. Fields. Item ("EP_PboolLDES") .Value <> "False") Then 

57 swapColorsO 

58 %> 

59 <tr bgcolor="#<%=backColor%>" valign=" top"> 

70 <td width="29%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>">Des 
cription : </ f ontx/ td> 

71 <td width="71%"xfont f ace="sans-serif " size="2" color="#<%=fontColor%>"x%= 
( rsProductlnfo. Fields. Item ( "EP_PlongDesc" ) .Value) %x/fontx/td> 

72 </tr> 

73 <% 

74 End If 

75 %> 

76 <% 

77 If (rsCatFields. Fields. I tern ( "EP_PboolMNFL" ) .Value <> "False") Then 

78 %> 

79 <tr> 

30 <td width="29%"> </td> 

31 <td width="71%"> 

32 <% If (rsProductlnfo. Fields. Item ("EP_Pmanf Link") .Value <> "na") Then %> 
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83 <font face="sans-serif" size="2"XA HREF="<%= (rsProductlnfo . Fields . Item ( "E 
P_PmanfLink") .Value) %>">Click ■ 

84 here for more .</Ax/ font > 

85 <% End If %> 

86 </td> 

87 </tr> 

88 <% 

89 End If 

90 %> 

91 </table> 

92 <br> 

93 <% 

94 If (rsIsCartOn. Fields. Item ( "EPak_cart" ) .Value = "True" AND rsProductlnfo . Fields . 
Item ("EP_PcanOrder") .Value = "True") Then 

95 %> 

96 <font face="sans-serif " size="2"xa href="cartAdd.asp?ID=<%= (rsProductlnfo. Field 
s.Item("ID") .Value) %>">Click 

97 here to add this item to your Shopping Cart . </a></font> 

98 <% End If %> 

99 </div> 

00 </td> 

01 </tr> 

02 <tr> 

03 <td> 

04 <hr color="#<%=EP_bordercolor%>"> 

05 </td> 

06 </tr> 

07 <tr> 

08 <td> 

09 <div align="center"> </div> 

10 </td> 

11 </tr> 

12 </table> 

13 </td> 



14 </tr> 

15 </table> 

16 </body> 

17 </html> 

18 <% 

L9 rsProductlnfo . Close ( ) 

20 %> 

21 <% 

22 rsCatFields. Close () 

23 %> 

24 <% 

25 rsIsCartOn. Close () 

26 %> 

27 <% 

28 rsTitleText .Close ( ) 

29 %> 
30 
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1 <%(§LANGUAGE=="VBSCRIPT"%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakObjectProps . asp" — > 

4 <! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

5 <% 

6 Dim rsParentCats MMColParam 

7 rsParentCats MMColParam = "1" 

8 if (Request .QueryString ( "ParentID" ) <> "") then rsParentCats MMColParam = Request .QueryString 
("ParentID") 

9 %> 

10 <% 

11 set rsParentCats = Server .CreateObject ("ADODB. Recordset") 

12 rsParentCats -ActiveConnection = MM_dbEPakRecords_STRING 

13 rsParentCats. Source = "SELECT * FROM ProotCats WHERE ID = " + Replace (rsParentCats MMColParam 

^ ir i it it i ? fi j fi rt 

14 rsParentCats. CursorType = 0 

15 rsParentCats. CursorLocation = 2 

16 rsParentCats. LockType = 3 

17 rsParentCats. Open () 

18 rsParentCats_numRows = 0 

19 %> 

20 <% 

21 set rsSubCats = Server .CreateObject ( "ADODB. Recordset " ) 

22 rsSubCats. ActiveConnection = MM_dbEPakRecords_STRING 

23 rsSubCats. Source = "SELECT * FROM PsubCats" 

24 rsSubCats .CursorType = 0 

25 rsSubCats . CursorLocation = 2 

26 rsSubCats. LockType = 3 

27 rsSubCats . Open ( ) 

28 rsSubCats_numRows = 0 

29 %> 

30 <% 

31 Dim rsProductPreview MMColParam 

32 rsProductPreview MMColParam = "1" 

33 if (Request. QueryString ( "ID" ) <> "") then rsProductPreview MMColParam = Request.QueryString(" 
ID") 

34 %> 

35 <% 

36 set rsProductPreview = Server. CreateObject ("ADODB. Recordset") 

37 rsProductPreview. ActiveConnection = MM__dbEPakRecords_STRING 4 

38 rsProductPreview. Source = "SELECT * FROM EP_catalog WHERE EP_PcatParent = " + Replace (rsProduc 
tPreview_MMColParam, " ,ir , "".") + "" 

39 rsProductPreview. CursorType = 0 

40 rsProductPreview. CursorLocation = 2 

41 rsProductPreview. LockType = 3 

42 rsProductPreview. Open ( ) 

43 rsProductPreview_numRows = 0 

44 %> 

45 <% 

46 set rsCatFields = Server .CreateObject ("ADODB. Recordset") 

47 rsCatFields .ActiveConnection = MM_connEPObjectProps_STRING 

48 rsCatFields. Source = "SELECT * FROM catalog_booleans" 

49 rsCatFields .CursorType = 0 

50 rsCatFields .CursorLocation = 2 

51 rsCatFields .LockType = 3 

52 rsCatFields .Open ( ) 

53 rsCatFields_numRows =0 

54 %> 

55 <% 

56 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

57 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

58 rsTitleText .Source = "SELECT * FROM titleText" 

59 rsTitleText .CursorType =0 

50 rsTitleText .CursorLocation =2 

51 rsTitleText .LockType =3 

52 rsTitleText .Open ( ) 

53 rsTitleText_numRows = 0 . 

54. %> - .• 

55 v <% • 
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-66 Dim Repeat 1 numRows 

67 Repeatl numRows = 10 

68 Dim Repeatl index 

69 Repeatl index = 0 

70 rsProductPreview_numRows = rsProductPreview_numRows + Repeatl numRows 

71 %> ~~ * 

72 <% 

73 ? *** Recordset Stats, Move To Record, and Go To Record: declare stats variables 
74 

75 1 set the record count 

7 6 rsSubCats_total = rsSubCats .RecordCount 
77 

78 1 set the number of rows displayed on this page 

79 If (rsSubCats_numRows < 0) Then 

80 rsSubCats_numRows = rsSubCats_total 

81 Elseif (rsSubCats_numRows = 0) Then 

82 rsSubCats_numRows = 1 

83 End If 
84 

85 1 set the first and last displayed record 

8 6 rsSubCats_f irst = 1 

87 rsSubCats_last = rsSubCats_f irst + rsSubCats_numRows - 1 
88 

89 1 if we have the correct record count, check the other stats 

90 If (rsSubCats_total <> -1) Then 

91 If (rsSubCats__first > rsSubCats_total) Then rsSubCats_f irst = rsSubCats_total 

92 If (rsSubCats_last > rsSubCats_total) Then rsSubCats_last = rsSubCats_total 

93 If (rsSubCats_numRows > rsSubCats_total) Then rsSubCats_numRows = rsSubCats total 

94 End If 

95 %> 

96 <% 

97 i *★* Move To Record and Go To Record: declare variables 
98 

99 Set MM_rs = rsSubCats 

00 MM_rsCount = rsSubCats_total 

01 MM_size = rsSubCatsjiumRows 

02 MM_uniqueCol = "ID" 

03 MM_paramName = "ID" 

04 MM_offset = 0 

05 MM_atTotal = false 

06 MM_paramIsDef ined = false 

07 If (MM_paramName <> "") Then 

08 MM_paramIsDe fined = (Request .Que rySt ring (MM_paramName) <> "") - 

09 End If 

10 %> 

11 <% 

12 1 *** Move To Specific Record: handle detail parameter 
13 

14 If (MM_paramIsDef ined And MM_rsCount <> 0) Then 
15 

16 1 get the value of the parameter 

17 param = Reefuest .QueryString (MM_paramName ) 
18 

19 ? find the record with the unique column value equal to the parameter value 

20 MM_of f set =0 

21 Do While (Not MM_rs .EOF) 

22 If (Cstr (MM_rs. Fields. I tern (MM_uniqueCol) .Value) = param) Then 

23 Exit Do 

24 . End If 

25 MM_offset = MM_offset + 1 

26 MM_rs.MoveNext 

27 Loop 
28 

29 1 if not found, set the number of records and reset the cursor 

30 If (MM_rs.EOF) Then 

31 If (MM_rsCount < 0) Then MM_rsCount = MM_offset 

32 If (MM_size < 0 Or MM_size > MM_of fset) Then MM_size = MM__offset 

33 : MM_offset = 0- 

34 ' ; 
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35 f reset the cursor to the beginning 

36 If (MM_rs.CursorType > 0) Then 

37 MM_rs .MoveFirst 

38 Else 

39 MM_rs. Close 
.40 MM_rs.Open 
.41 End If 

.42 End If 
.43 



.44 End If 

.45 %> 

46 <% 

47 i *** Move To Record: if we dont know the record count, check the display range 

.48 

49 If (MM rsCount = -1) Then 



50 

51 1 walk to the end of the display range for this page 

52 i = MM_offset 

.53 While (Not MM_rs .EOF And (MM_size < 0 Or i < MM_offset + MM_size) ) 

54 MM_rs .MoveNext 

55 i = i + 1 

56 Wend 
57 

58 f if we walked off the end of the recordset, set MM_rsCount and MM_size 

59 If (MM_rs .EOF) Then 

60 MM_rsCount = i 

61 If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount 

62 End If 
63 

64 1 if we walked off the end, set the offset based on page size 

65 If (MM_rs .EOF And Not MM_paramIs Defined) Then 

66 If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then 

67 If ( (MM_rsCount Mod MM_size) > 0) Then 

68 MM__offset = MM_rsCount - (MM_rsCount Mod MM__size) 

69 Else 

70 MM_of f set = MM_rsCount - MM_size 

71 End If 

72 End If 

73 End If 
74 

75 1 reset the cursor to the beginning 

76 If (MM_rs.CursorType > 0) Then 

77 MM_rs. MoveFirst 

78 Else 

79 MM_rs.Requery 

80 End If 
81 

82 1 move the cursor to the selected record 

83 i = 0 

34 While (Not MM_rs . EOF And i < MM_offset) 

35 MM_rs. MoveNext 

36 i = i + 1 

37 Wend 



38 End If 

39 %> 

90 <% 

91 i ★** Move To Record: update recordset stats 
92 

93 1 set the first and last displayed record 

94 rsSubCats_first = MM_offset + 1 

25 rsSubCats_last = MM_offset + MM_size 

96 If (MM_rsCount <> -1) Then 

97 If (rsSubCats_f irst > MM_rsCount) Then rsSubCats_f irst == MM_rsCount 

98 If (rsSubCats_last > MM_rsCount) Then rsSubCats_last = MM_rsCount 

99 End If 
DO 

01 f set the boolean used by hide region to check if we are on the last record 

D2 MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) 

D3 %> 
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>04 <% 

105 If (NOT rsProduct Preview. EOF) Then 

!06 rsProduct Pre view. MoveFirst ( ) 

!07 recordTotal = 0 

>08 While (NOT rsProductPreview .EOF) 

109 rsProductPreview. MoveNext ( ) 

110 recordTotal = recordTotal + 1 
\11 Wend 

112 rsProductPreview. MoveFirst ( ) 

113 End If 
114 

!15 If (Request ("cat Index" ) <> "") Then 

:16 catlndex = Request ( "catlndex" ) + 10 

!17 If (NOT rsProductPreview. EOF) Then 

:18 rsProductPreview. MoveFirst 

:19 rsProductPreview. Move (Request ("catlndex") ) 

20 End If 

:21 Else 

:22 catlndex = 10 



'23 End If 
24 

25 %> 

26 <!--#include f ile=" ../.. /global . asp" --> 

27 <html> 

28 <head> 

29 <title>Product Catalog</title> 

30 <meta http-equiv="Content-Type" content^" text/html; charset=iso-8859-l"> 

31 </head> 

32 <body bgcolor="#<%= (EPJsgcolor) %>" 

33 text="#<%=EP_text%>" 

34 link="#<%=EPJLink%>" 

35 vlink="#<%=EP_vlink%>" 

36 alink="#<%=EP_alink%>" 

37 leftmargin="3" 

38 topmargin="0" 

39 marginwidth="0" 

40 marginheight="0" 

41 background^" . . / . . /<%= (EP_bgImg) %>"> 

42 <! — #include f ile=" ../.. /banner . asp" — > 

43 <br> 

44 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 
»> 

45 <tr> 

46 <td> 

47 <table width="100%" border="0" align="center" bgcolor="#<%==EP_bgcolor%>"> 

48 <tr> 

49 <td align="center"> 

50 <% 

51 'check to see which Title Text file is selected 

52 cycleDone = false 

53 Dim titleTextFile 
54 

55 While (NOT rsTitleText . EOF) 

56 

57 If (rsTitleText. Fields. Item("EP_isSelected") .Value = "True") Then 

58 titleTextFile = rsTitleText. Fields. Item ("EPJiitleTextFile") .Value 

59 End If .. 

60 rsTitleText .MoveNext 

61 Wend 

62 %> 

63 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4,0, 2,0" width="480" height=" 
40"> 

64 <param name="movie" value=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN= ' CENTER ' XFONT C0L0R= 1 #<%=EP_text%> f >Product Catalog</FONTX/P>"> 

65 <param name=wmode value=transparent> 

66 <param name=quality value=high> 

67 <embed src=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 X 
FONT C0L0R= f #<%=EP_text%> 1 >Product Catalog</FONTX/P>" quality=high pluginspage="http: //www. ma 
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cromedia . com/ Shockwave /download/ index . cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x- 
Shockwave- flash" width=" 480" height="40"> 

68 </embed> 

69 </object> </td> 

70 </tr> 
'71 <tr> 

72 <td> 

73 <hr color="#<%=EPjDordercolor%>"> 

74 </td> 

75 </tr> 

76 <tr> 

77 <td> 

78 <div align="center"xfont face=" sans-serif" size="2" >Category :    <ixbx% 
= (rsParentCats . Fields . Item ( "EP_PRootCatName" ) .Value) %>  /  <%= (rsSubCats . Fields . Item ( " 
EP_PsubCatName") .Value) %x/bx/ix/fontx/div> 

79 ~ </td> 

80 </tr> 

81 <tr> 

82 <td> 

83 <div align="center"xfont f ace="sans-serif " size="2"xa href=" javascript rhistory.b 
ack() ">Click 

84 here to go back.</a><br> 

85   <br> 

86 </font> 

87 <% 

88 If (recordTotal > 10) Then 

89 %> 

90 <font face="Arial, Helvetica, sans-serif" size="2">Current Page 

91 #:  <b><%=( cat Index / 10)%></b><br> 

92 <% If ( (catIndex-20) >= 0) Then %> 

93 <a href="catalogView.asp?catIndex=<%=(catIndex-20) %>&ID=<%=Request ("ID") %>&Paren 
tID=<%=Request ("ParentID") %>">Previous 

94 Page</a> 

95 <% End If %> 

96 <% If (recordTotal > catlndex) Then %> 

97      <a href="catalogView.asp?catIndex=<%=catIndex%>&ID=<%=Request ( 
"ID") %>&ParentID : =<%=Request ( "ParentID" ) %>">Next 

98 Page</a> 

99 <% End If %> 

00 <% 

01 If (recordTotal > (Int (recordTotal / 1-0) *10) ) Then 

02 pageNum = Int (recordTotal / 10) + 1 

03 Else 

D4 pageNum = Int (recordTotal / 10) 

05 End If 

06 %> 

07 </fontxfont f ace="sans-serif " size="2"> </ f out x font face="Arial / Helvetica, sa 
ns-serif" size="2"> 

08 <% 

09 pgCount = 0 

10 If (pageNum > 1) Then 

LI Response. Write ("<BR>Choose a page number :     ") 

12 End If 

L3 

L4 While (pgCount < pageNum) 

L5 If (pgCount <> ((catlndex / 10) -1)) Then 

16 Response/Write ("<A HREF= ? catalogView.asp?catIndex=" & (pgCount * 10) & "&ID=" & 
Request ("ID") & "&ParentID=" & Request ("ParentID") & " f >" & pgCount+1 & "</A>    ") 

17 Else 

18 Response. Write (pgCount+1 & "    " ) 
L9 End If 

20 pgCount = pgCount +1 

11 Wend 

12 %> 

Z3 <% 

Z4 End If 

25 %> 

26 </fontxfont f ace="sans-serif " size="2"xbr> 

27 </font> 
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28 <table width="100%" border="0"> 

29 <% 

30 While ( (Repeatl numRows <> 0) AND (NOT rsProductPreview .EOF) ) 

31 %> 

32 <tr> 

:33 <td colspan="3"> </td> 

34 </tr> 

35 <tr> 

:36 <td rowspan="2"> 

37 <% 

.38 If (rsCatFields . Fields . Item ( "EP_PboolFTHM" ) .Value <> "False") Then 

39 %> 

40 <IMG SRC=". ./. . /images /thumbs /<%= (rsProductPreview. Fields. Item ("EP_PthumFi 
le") .Value) %>"> 

41 <% 

42 End If 

43 %> 

44 </td> 

45 <td><font face=" sans-serif" size="2"><%= (rsProductPreview. Fields . Item("EP_Pn 
ame") .Value) %><br> 

4 6 <a href ="catalogViewI tern. asp? ID=<%= (rsProductPreview. Fields. I tern ("ID") .Val 

ue) %>">(click 

47 here for details) </a><br> 

48 </fontx/td> 

49 <td rowspan="2"xfont f ace="sans-serif " size="2"> 

50 <% 

51 If (rsCatFields. Fields. Item ("EP_PboolPRC") .Value <> "False") Then 

52 %> 

53 <%=FormatCurrency( rsProductPreview. Fields . Item("EP_Pprice") .Value) %> 

54 <% End If %> 

55 </fontx/td> 

56 </tr> 

57 <tr> 

58 <tdxfont face="sans-serif " size="l"> 

59 <% 

60 If (rsCatFields. Fields. Item ("EP_PboolSDES") .Value <> "False") Then 

61 %> 

62 <%= (rsProductPreview. Fields . Item ( "EP_PshortDesc" ) .Value) %> 

63 <% End If %> 

64 </fontx/td> 

65 </tr> , 

66 <% 

6 7 Repeat 1 index=Repeat 1 index* 1 

6 8 Repea 1 1 numRows=Repea 1 1 numRows- 1 

69 rsProductPreview. MoveNext ( ) 

70 Wend 

71 %> 

72 </table> 

73 <font face="Arial / Helvetica/ sans-serif" size="2"> 

74 <% 

75 If (recordTotal > 10) Then 

76 %> 

77 Current Page #:    <b><%= (cat Index / 10)%></b><br> 

78 <% If ( (catIndex-20) >= 0) Then %> 

79 <a href="catalogView.asp?catIndex=<%=(catIndex-20) %>&ID=<%=Request ("ID") %>&Paren 
tID=<%=Request ( "ParentID" ) %>">Previous 

80 Page</a> 

81 <% End If %> 

82 <% If (recordTotal > catlndex) Then %> 

83     <a href="catalogView.asp?catIndex=<%=catIndex%>&ID=<%=Request ( 
"ID") %>&ParentID=<%=Request ("ParentID") %>">Next 

84 ' Page</a> 

85 <% End If %> 

86 <% 

87 If .(recordTotal > (Int (recordTotal / 10)*10) ) Then 

88 pageNum = Int (recordTotal / 10) + 1 

89 ; Else , - v . 

90 pageNum = Int (recordTotal / 10 ) 
"-91 ; End If 
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<92 %> 

193 <% 

J94 pgCount = 0 

195 If (pageNum > 1) Then 

'.96 Response .Write ( "<BR>Choose a page number :     " ) 

597 End If 

;98 

;99 While (pgCount < pageNum) 

100 If (pgCount <> ( (catlndex / 10) -1)) Then 

':01 Response. Write ("<A HREF= ? catalogView.asp?catIndex=" & (pgCount * 10) & "&ID=" & 

Request ("ID") & "&ParentID=" & Request ( "Parent ID" ) & " f >" & pgCount+1 & "</A>    " ) 

02 Else 

03 Response. Wri te (pgCount+1 & "    ") 
:04 End If 

05 pgCount = pgCount+1 

06 Wend 

07 %> 

08 <% 

09 End If 

10 %> 

11 </fontxfont face="sans-serif " size="2"> </font><font f ace="sans-serif " size="2" 
> 

12 </fontx/div> 

13 </td> 

14 </tr> 

15 <tr> 

16 <td> 

17 <hr colors" #<%=EP_bordercolor%>"> 

18 </td> 

19 </tr> 

20 <tr> 

21 <td> 

22 <div align="center"> </div> 

23 </td> 

24 </tr> 

25 </table> 

26 </td> 

27 </tr> 

28 </table> 

29 </body> 

30 </html> 

31 <% 

32 rsParentCats . Close ( ) 

33 %> 

34 <% 

35 rsSubCats. Close () 

36 %> 

37 <% 

38 rsProductPreview. Close ( ) 

39 %> 

40 <% 

41 rsCatFields. Close () 

42 %> 

43 <% 

44 rsTitleText .Close ( ) 

45 %> 
46 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 <! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include file=" . ./. . /Connections/dbEPakLibs .asp" — > 

4 <% 

5 set rsParentCats = Server .CreateObject ("ADODB. Recordset") 

6 rsParentCats . ActiveConnection = MM_dbEPakRecords__STRING 

7 rsParentCats .Source = "SELECT * FROM ProotCats" 

8 rsParentCats. CursorType = 0 

9 rsParentCats .CursorLocation = 2 

10 rsParentCats .LockType = 3 

11 rsParentCats .Open ( ) 

12 rsParentCats_numRows = 0 

13 %> 

14 <% 

15 set rsSubCats = Server. CreateObject ("ADODB. Recordset") 

16 rsSubCats. ActiveConnection = MM_dbEPakRecords_STRING 

17 rsSubCats. Source = "SELECT * FROM PsubCats" 

18 rsSubCats .CursorType = 0 

19 rsSubCats .CursorLocation = 2 

20 rsSubCats .LockType = 3 

21 rsSubCats .Open ( ) 

22 rsSubCats_numRows = 0 

23 %> 

24 <% 

25 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 
2 6 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

27 rsTitleText. Source = "SELECT * FROM titleText" 

28 rsTitleText .CursorType = 0 

29 rsTitleText .CursorLocation = 2 

30 rsTitleText .LockType = 3 

31 rsTitleText .Open ( ) 

32 rsTitleText_numRows = 0 

33 %> 

34 <% 

35 Dim Repeat 1 numRows 

36 Repeat 1 numRows = -1 

37 Dim Repeatl index 

38 Repeatl index = 0 

39 rsSubCats_numRows = rsSubCats_numRows + Repeatl numRows 

40 %> 

41 <% 

42 1 *** Recordset Stats, Move To Record, and Go To Record: declare stats variables 
43 

44 f set the record count 

45 rsParentCats_total = rsParentCats .RecordCount 
46 

47 • set the number of rows displayed on this page 

48 If (rsParentCats_numRows < 0) Then 

49 rsParentCats_numRows = rsParent€ats_total 

50 Elseif (rsParentCats_numRows = 0) Then 

51 rsParentCats_numRows = 1 

52 End If 
53 

54 1 set the first and last displayed record 

55 rsParentCats_f irst = 1 

56 rsParentCats_last = rsParentCats_f irst + rsParentCats_numRows - 1 
57 

58 f if we have the correct record count, check the other stats 

59 If (rsParentCats_total <> -1) Then 

60 If (rsParentCats_f irst > rsParentCats_total) Then rsParentCats_f irst = rsParentCats_total 

61 If (rsParentCats_last > rsParentCats_total) Then rsParentCats_last = rsParentCats_total 

62 If ( rsParentCats jiumRows > rsParentCats_total) Then rsParentCats_numRows = rsParentCats_tota 
1 

63 End If 

64 %> 

65 <% 

66 1 *** Move To Record and Go To Record: declare variables 
67 

68 Set MM_rs = rsParentCats 
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69 MM_rsCount = rsParentCats_total 

70 MM_size = rsParentCats_numRows 

71 MM_uniqueCol = "ID" 

72 MM_paramName = "ID" 

73 MM_of f set = 0 

74 MM_atTotal = false 

75 MM_paramIsDefined = false 

76 If (MMjparamName <> "") Then 

77 MM_paramIs Defined = (Request .QuerySt ring (MMjparamName) <> "") 

78 idStr = CStr (Request .QueryString (MM__paramName) ) 

79 End If 

80 %> 

81 <% 

82 1 *** Move To Specific Record: handle detail parameter 
83 

84 If (MM_paramIsDef ined And MM_rsCount <> 0) Then 



85 

86 1 get the value of the parameter 

87 param = Request .QueryString (MM_paramName) 
88 

89 ? find the record with the unique column value equal to the parameter value 

90 MM_of fset = 0 

91 Do While (Not MM_rs . EOF) 

92 If (Cstr (MM_rs. Fields. I tern (MM_uniqueCol) .Value) = param) Then 

93 Exit Do 

94 End If 

95 MM_offset = MM_offset + 1 

96 MM_rs .MoveNext 

97 Loop 
98 

99 ? if not found, set the number of records and reset the cursor 

00 If (MM__rs . EOF) Then 

01 If (MM_rsCount < 0) Then MM_rsCount = MM_offset 

02 If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset 

03 MM_offset =0 
04 

05 f reset the cursor to the beginning 

06 If (MM_rs.CursorType > 0) Then 

07 MM_rs.MoveFirst 

08 Else 

09 MM_rs. Close 

10 MM_rs . Open 

11 End If 

12 End If 
13 



14 End If 

15 %> 

16 <% 

17 » *** Move To Record: if we dont know the record count, check the display range 
18 

19 If (MM_rsCount = -1) Then 
20 



21 1 walk to the end of the display range for this page 

22 i = MM_offset 

23 While (Not MM_rs . EOF And (MM_size < 0 Or i < MM_offset + MM_size) ) 

24 MM_rs .MoveNext 

25 i = i + 1 

26 Wend 
27 

28 1 if we walked off the end of the recordset, set MM_rsCount and MM_size 

29 If (MM_rs . EOF) Then 

30 MM_rsCount = i 

31 If (MM_size < 0 Or MM__size > MM_rsCount) Then MM_size = MM_rsCount 

32 End If 
33 

34 1 if we walked off the end, set the offset based on page size 

35 If (MM_rs.EOF And Not MMjparamls Defined) Then^* 

36 If (MM_offset > MM_rsCount - MM_size Or MM^offset = -1) Then 

37 - ; if ( (MM_rsCount Mod MM size) > 0) Then 
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138 MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) 

L39 Else 

L40 MM_offset = MM__rsCount - MM_size 

L41 End If 

L42 End If 

L43 End If 

144 

145 ' reset the cursor to the beginning 

L4 6 If (MM_rs .CursorType > 0) Then 

L47 MM_rs .MoveFirst 

L48 Else 

149 MM_rs.Requery 

L50 End If 

151 

152 1 move the cursor to the selected record 

.53 i = 0 

.54 While (Not MM_rs . EOF And i < MM_offset) 

.55 MM_rs .MoveNext 

L56 i = i + 1 

157 Wend 



.58 End If 

.59 %> 

.60 <% 

$1 i *+* Move To Record: update recordset stats 

.62 

.63 1 set the first and last displayed record 

.64 rsParentCats_f irst = MM_offset + 1 

.65 rsParentCats_last = MM_offset + MM_size 

.66 If (MM_rsCount <> -1) Then 

.67 „ If (rsParentCats_first > MM_rsCount) Then rsParentCats_f irst = MM_rsCount 
68 If (rsParentCats_last > MMjrsCount) Then rsParentCats_last = MM_rsCount 

.69 End If 

.70 

71 1 set the boolean used by hide region to check if we are on the last record 

72 MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) 

.73 %> 

74 <!-- ttinclude f ile=" . ./.. /global . asp" — > 

75 <html> 

76 <head> 

77 <title>Product Catalog</title> 

.78 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-l"> 

79 </head> 

80 <body bgcolor=" #<%= (EP_bgcolor) %>" 



81 text="#<%=EP_text%>" 

82 , link="#<%=EP_link%>" 

83 vlink="#<%=EP_vlink%>" 

84 alink="#<%=EP_alink%>" 

85 leftmargin="3" 

86 topmargin="0" 

87 marginwidth= ,, 0" 

8 8 marginheight= 11 0 " 

89 background=" . • / . . /<%= (EP_bgImg) %>"> 



90 <! — #include f ile=" ../. ./banner . asp" — > 

91 <br> 

92 <table width="500" border="l" align="center" bordercolor="#<%=EPJbordercolor%>'! cellspacing="0 



93 <tr> 

94 <td> 

95 <table width="100%" -border- "fl" align="center" bgcolor="#<%=EPJbgcolor%>"> 

96 <tr> 

97 <td align="center"> 

98 <% 

99 'check to see which Title Text file is selected 

00 cycleDone = false 

01 Dim titleTextFile 
02 

03 While (NOT rsTitlefext . EOF) 

04 

05 If (rsTitleText. Fields. Item("EP isSelected") .Value = "True") Then 
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106 titleTextFile = rsTitleText . Fields . Item ( "EP__titleTextFile" ) .Value 

!07 End If 

!08 rsTitleText .MoveNext 

109 Wend 
>10 %> 

>11 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 

load. macromedia .com/pub/ shockwave/cabs/ flash/ swf lash. cab#version=4, 0,2,0" width="480" height=" 
40"> 

>12 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 

LIGN= f CENTER' X FONT COLOR= 1 #<%=EP_text%> ' >Product Catalog</FONTX/P>"> 
113 <param name=wmode value=transparent> 

>14 <param name=quality value=high> 

!15 <embed src=" . ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 >< 

FONT COLOR= ? #<%=EP_text%> ' >Product Catalog</FONTX/P>" quality=high pluginspage="http : //www. ma 
cromedia.com/ shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x- 
shockwave-flash" width="480" height="40"> 

:16 </embed> 

M7 </object> </td> 

!18 </tr> 

119 <tr> 

:20 <td> 

.21 <hr color="#<%=EP_bordercolor%>"> 

:22 </td> 
:23 </tr> 
24 <tr> 
:25 <td> 

126 <div align="center"xfont f ace="sans-serif " size="2">Category :    <ixbx% 

= (rsParentCats . Fields . Item ( "EPJPRootCatName" ) .Value) %x/bx/i> </fontx/div> 
:27 </td> 
:28 </tr> 
:29 <tr> 
:30 <td> 

:31 <div align="center"xfont f ace=" sans-serif " size="2"xa href=" javascript : history .b 

ack() ">Click 

:32 here to go back. </ax/fontx/div> 

33 </td> 

34 </tr> 

35 <tr> 
•36 <td> 

37 <div align="center"> </div> 

:38 </td> 

39 </tr> 

40 <tr> 

41 <td> 

.42 <div align= lf center"xfont f ace="sans-serif " size="2">Choose a sub-category :</font> 

</div> 
43 </td> 
:44 </tr> 
:45 <tr> 

46 <td> 

47 <div align="center"> <br> 

*48 <font face="sans-serif " size="2">| 

49 <% 

50 While ( (Repeatl numRows <> 0) AND (NOT rsSubCats .EOF) ) 

51 

52 If (CStr (rsSubCats. Fields. Item ("EP_PparentCat") .Value) = idStr) Then 

53 %> 

;54 <a href ="catalogView. asp? ID=<%= (rsSubCats .Fields. I tern ("ID") .Value) %>&ParentID=<% 

=Int (idStr) %>"><%= (rsSubCats . Fields . Item( "EP_PsubCatName" ) .Value) %x/a>  I 
:55 <% 
56 End If 
.57 %> 

58 <% 

59 Repeatl index=Repeatl index* 1 

60 Repeatl numRows=Repeatl numRows- 1 

.61 rsSubCats .MoveNext () 

62 Wend 

63 %> 

:64 </fontx/div> 
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265 </td> 

266 </tr> 
161 <tr> 
168 <td> 

269 <hr-color="#<%=EPJbordercolor%>"> 

270 </td> 

271 </tr> 

272 <tr> 

273 <td> 

274 <div align="center"> </div> 

275 </td> 

276 </tr> 
:77 </table> 
!78 </td> 

279 </tr> 



:80 </table> 

:81 </body> 

:82 </html> 

!83 <% 

284 rsParentCats .Close ( ) 

:85 %> 

.86 <% 

87 rsSubCats .Close ( ) 

'88 %> 

89 <% 

.90 rsTitleText .Close () 

91 %> 
92 
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1 <%@LANGUAGE="VBSCRIPT"%> 

2 < ! — #include f ile=" . . / . . /Connections /dbEPakRecords . asp" — > 

3 <! — ^include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 set rsParentCats = Server .CreateObject ("ADODB. Recordset" ) 

6 rsParentCats . ActiveConnection = MM_dbEPakRecords_STRING 

7 rsParentCats. Source = "SELECT * FROM ProotCats" 

8 rsParentCats. CursorType = 0 

9 rsParentCats. CursorLocat ion = 2 

10 rsParentCats. LockType = 3 

11 rsParentCats . Open ( ) 

12 rsParentCats_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText .Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocat ion = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText .Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 Dim Repeat 1 numRows 

26 Repeat 1 numRows = -1 

27 Dim Repeatl index 

28 Repeatl index = 0 

29 rsParentCats_numRows = rsParentCats_numRows + Repeatl numRows 

30 %> 

31 <! — #include f ile=" ../.. /global . asp" — > 

32 <html> 

33 <head> 

34 <title>Product Catalog</title> 

35 <meta http-equiv="Content-Type" content=" text /html; charset=iso-8859-l "> 

36 </head> 

37 <body bgcolor="#<%= (EP_bgcolor) %>" 



38 text="#<%=EP_text%>" 

39 link="#<%=EP_link%>" 

40 vlink="#<%=EP_vlink%>" 

41 alink="#<%=EP_alink%>" 

42 leftmargin="3" 

43 topmargin="0" 

44 marginwidth="0" 

45 marginheight="0" 

46 background=" . . / . . /<%= (EP_bgImg) %>"> 



47 <!-- #include f ile=" ../.. /banner . asp" — > 

48 <br> 

49 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing=="0 
"> 



50 <tr> 

51 <td> 

52 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

53 <tr> 

54 <td align="center"> 

55 <% 

56 'check to see which Title Text file is selected 

57 cycleDone = false 

58 Dim titleTextFile 
59 

60 While (NOT rsTitleText . EOF) 

61 

62 If (rsTitleText. Fields. Item( "EP_isSelected" ) .Value = "True") Then 

63 titleTextFile = rsTitleText. Fields. I tern ("EP_titleTextFile") .Value 

64 End If 

65 rsTitleText .MoveNext 

66 . Wend 

67 %> 

68 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
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load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0,2,0" width="480" height=' 1 
40"> 

69 <param name="movie" value=" . . / . . /banners/titleText/<%= ( titleTextFile) %>^txt=<P A 
LIGN=' CENTER r >< FONT COLOR= ' #<%=EP_text%> • >Product Catalog</FONTX/P>»> 

70 <param name=wmode value=transparent> 

71 <param name=quality value=high> 

72 <embed src=" . ./.. /banners/titleText/<%= ( titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 >< 
FONT COLOR= ? #<%=EP_text%> f >Product Catalog</FONTX/P>" quality=high pluginspage="http: //www.ma 
cromedia.com/shockwave/download/ index. cgi?PlJProd_Version=ShockwaveFlash" type="application/x- 
shockwave-flash" width="480" height="40"> 

73 </embed> 

74 </object> </td> 

75 </tr> 

76 <tr> 

77 <td> 

78 <hr color="#<%=EP_bordercolor%>"> 

79 </td> 

80 </tr> 

81 <tr> 

82 <td> 

83 <div align="center"><font f ace="sans-serif " size="2"xb>Select a category 

84 you would like to browse :<br> 

85   </bx/fontx/div> 

86 </td> 

87 </tr> 

88 <tr> 

89 <td> 

90 <div align="center"xfont f ace="sans-serif " size="2">| 

91 <% 

92 While ( (Repeatl numRows <> 0) AND (NOT rsParentCats .EOF) ) 

93 %> 

94 <A HREF="catalogSubCats . asp? ID=<%= (rsParentCats . Fields . Item ( " ID" ) .Value) %>"><%= ( 
rsParentCats. Fields. I tern ("EP_PRootCatName") .Value) %x/A>  I 

95 <% 

96 Repeatl index=Repeatl index+1 

97 Repeatl numRows=Repeatl numRows- 1 

98 rsParentCats .MoveNext ( ) 

99 Wend 

.00 %> 

.01 </fontx/div> 

.02 </td> - - 

.03 </tr> 

04 <tr> 

05 <td align="center"> </td> 
.06 </tr> 

07 <tr> 

08 <td> 

09 <hr color="#<%=EP__bordercolor%>"> 
.10 </td> 

11 </tr> 

12 <tr> 

13 <td> 

14 <div align="center"> </div> 

15 </td> 
•16 </tr> 

17 </table> 

18 </td> 

19 </tr> 

20 </table> 

21 </body> 

22 </html> 

23 <% 

24 rsParentCats. Close () 

25 %> 

26 <% 

27 rsTitleText .Close ( ) 

28 %> 
29 
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1 < %@LANGUAGE=" VBSCRIPT" %> 

2 < ! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 <! — #include f ile=" . . / . . /Connections/dbEPakLibs .asp" — > 

4 <% 

5 set rsProducts = Server .CreateObject ("ADODB. Recordset") 

6 rsProducts. ActiveConnection = MM_dbEPakRecords_STRING 

7 rsProducts. Source = "SELECT ID, EP_Pname, EP_Pprice FROM catalog" 

8 rsProducts. CursorType =0 

9 rsProducts. CursorLocation = 2 

10 rsProducts. LockType = 3 

1 1 rsProducts . Open ( ) 

12 rsProducts_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText .Open () 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 1 i_val 

26 1 Remove items from the Sessions ID and QTY arrays 

27 ' First split the strings into arrays, 

28 1 then use the i_val to empty the array point 

29 1 somehow need to remove the i point entirely so all other 

30 1 values move forward in the array. 

31 ■ Then rejoin the arrays back to Session strings. 
32 

33 If (Request. Form ("i_val") <> "") Then 

34 qtyStr = Session ( "QTY" ) 

35 idStr = Session ("ID") 
36 

37 qtySplit = Split (qtyStr, "|") 

38 idSplit = Split (idStr, "|") 
39 

40 i=0 

41 Session ("ID") = "" 

42 Session ("QTY") = "" 

43 While ( i < Ubound (qtySplit ) ) 

44 If ( i <> Int (Request. Form ("i_val") ) ) Then 

45 Session("ID") = Session ( "ID" ) & CStr (idSplit (i) ) & "|" 

46 Session ("QTY") = Session ( "QTY" ) & CStr (qtySplit (i) ) & "|" 

47 End If 

48 i = i+1 

49 Wend 
50 

51 

52 End If 

53 

54 

55 %> 

56 <% 

57 1 cart_qty is numeric field 

58 ' prod_id is ID field (hidden) 

59 If (Session ("QTY") <> "" AND Session (" ID" ) <> "") Then 

60 itemsStr ■= Session ("ID") 

61 qtyStr = Session ( "QTY" ) 
62 

63 splitltems = Split (itemsStr, " |") 

64 splitQTY = Split (qtyStr, " |") 
65 

66 End If 
67 

68 If (Session ("QTY") = "") Then 

69 no I terns = true 
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70 End If 

71 %> 

72 <!--#include f ile=" . ./.. /global . asp" — > 

73 <html> 

74 <head> 

75 <title>Shopping Cart - Remove Items</title> 

76 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-l"> 

77 </head> 

78 <body bgcolor="#<%= (EPJagcolor) %>" 

79 text="#<%=EP_text%>" 

80 link="#<%=EP_link%>" 

81 . vlink="#<%=EP_vlink%>" 

82 alink="#<%=EP_alink%>" 

83 leftmargin="3" 

84 topmargin="0" 

8 5 marginwidth= " 0 " 

8 6 marginheight=" 0 " 

87 background**" . . / . . /<%= (EPJbglmg) %>"> 

88 <! — #include file=" ../. ./banner. asp" — > 

89 <br> 

90 <table width="500" border="l" align="center" bordercolor="#<%=EP bordercolor%>" cellspacing="0 
"> 

91 <tr> 

92 <td> 

93 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

94 <tr> 

95 <td align="center"> 

96 <% 

97 'check to see which Title Text file is selected 

98 cycleDone = false 

99 Dim titleTextFile 
.00 

,01 While (NOT rsTitleText . EOF) 

.02 

.03 If (rsTitleText. Fields. Item( "EP_isSelected" ) .Value = "True") Then 

.04 titleTextFile = rsTitleText . Fields . Item( "EP_titleTextFile" ) .Value 

05 End If 

.06 rsTitleText. MoveNext 

.07 Wend 

:08 %> 

.09 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http: //down 

load. macromedia. com/pub/shockwave/cabs/f lash/ swf lash. cab#version=4, 0,2, 0" width="480" height=" 
40"> 

10 <param name="movie" value=". ./. ./banners/ titleText/<%=( titleTextFile) %>?txt=<P A 

LIGN=' CENTER' X FONT COLOR= ' #<%=EP_text%> 1 >Shopping Cart - Remove Items</FONT></P>"> 
.11 <param name=wmode value=transparent> 

.12 <param name=quality value=high> 

13 <embed src=". ./. ./banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= ? CENTER r >< 
FONT COLOR='#<%=EP_text%> f >Shopping Cart - Remove Items</FONT></P>" quality=high pluginspage=" 
http: //www. macromedia. com/ shockwave/download/index.cgi?Pl_Prod_Version=ShockwaveFlash" type="a 
pplication/x-shockwave-f lash" width="480" height="40"> 

14 </embed> 

15 </object> </td> 

16 </tr> 

17 <tr> 

18 <td> 

19 <hr color="#<%=EPJbordercolor%>"> 
.20 </td> 

21 </tr> 

22 <tr> 

23 <td> 

24 <div align="center"xfont f ace="sans-serif " size="2"Xa href="checkout ,asp?checkou 
tLong=true " >C1 ick 

25 here to check out.</aXbr> 

26 <a href=" javascript rhistory .go (-2) ">Click here to go back and continue 

27 shopping. </a></fontx/div> 

28 </td> 

29 </tr> 

30 <tr> 
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L31 <td> 

L32 <table width="100%" border="0" cellpadding="l" cellspacing="l"> 

L33 <tr> 

L34 <td width="5%"> </td> 

L35 <td width="5%"xbxfont f ace="sans-serif " size="2">Quantity</fontx/bx/td> 

L36 <td width="62%"xb><font f ace=" sans-serif " size="2">   Name 

L37 of Item(s)</fontx/bx/td> 

L38 <td width="14%"xbxfont f ace="sans-serif " size="2">Price</fontx/bx/td> 

L39 </tr> 

L40 <% 

L41 If (NOT no I terns) Then 

142 

143 i=0 

144 While (i <= Ubound (splitltems) ) 
.45 %> 

.46 <% 

.47 rsProducts .MoveFirst ( ) 

.48 While (NOT rsProducts .EOF) 

.49 %> 

'.50 <% 

-51 If (CStr (splitltems (i) ) = CStr (rsProducts . Fields . Item ( "ID" ) .Value) ) Then 

.52 %> 

.53 <tr> 

.54 <form name="forml" method="post" action=""> 

.55 <td width="5%"> 

.56 * < input type=" submit" name=" Submit" value=" Remove >" style=" 

.57 border-color: #<%=EP_bordercolor%>; 

.58 border-style: solid; 

.59 font-size: 9pt; 

.60 border-width: lpx; 

.61 background-color: #<%=EP_bgcolor%>; 

62 color: #<%=EP_text%>; 

.63 cursor: hand;"> 

.64 <input type="hidden" name="i_val" value="<%=i%>"> 

65 </td> 

66 <td width="5%"> 

67 <div align="center"xfont face="sans-serif " size="2"x%=splitQTY (i) %x/fon 
tx/div> 

68 </td> 

69 <td width="62%"xfont f ace="sans-serif " size="2">       <%= 
(rsProducts . Fields . Item ( "EPJPname" ) .Value) %></fontx/td> 

70 <td width="14%"xfont face="sans-serif " size="2"x%=FormatCurrency (rsProduct 
s. Fields. I tern ("EP_Pprice") .Value) %x/fontx/td> 

71 <% 

72 End If 

73 %> 

74 </form> 

75 </tr> 

76 <% 

77 rsProducts. Mo veNext () 

78 Wend 

79 %> 

80 <% 
:81 i=i+l 

82 Wend 
83 

84 End If 

85 %> 

86 </table> 

87 <font face="sans-serif " size="2"xbr> 

88   </fontx/td> 

89 </tr> 

90 <tr> 

91 <td> 

92 <hr color="#<%=EP_bordercolor%>"> 

93 </td> 

94 </tr> 

95 <tr> 

96 <td> 
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.97 
98 
.99 
:00 
!01 



<div align="center ,, > </div> 
</td> 
</tr> 
</table> 
</td> 



!02 </tr> 

!03 </table> 

!04 </body> 

!05 </html> 

!06 <% 

!07 rsProducts .Close ( ) 

103 %> 

109 <% 

:10 rsTitleText .Close () 

:ll %> 

:12 
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1 < %@ LANGUAGE = "VBSCRIPT " % > 

2 < ! — #include f ile=" . - / . . /Connections/dbEPakRecords . asp" — > 

3 < ! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 set rsProducts = Server. CreateObject ( "ADODB . Recordset") 

6 rsProducts. ActiveConnection = MM_dbEPakRecords_STRING 

7 rsProducts. Source = "SELECT ID, EP_Pname FROM EP_catalog" 

8 rsProducts. Cur sorType = 0 

9 rsProducts. CursorLocat ion = 2 

10 rsProducts. LockType = 3 

11 rsProducts .Open ( ) 

12 rsProducts_numRows = 0 ' 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocation = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText . Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 1 Create Session variables for Shopping cart. 

26 1 Check addToCart status and if true, 

27 ■ add ID and QTY to Session variables. 

28 1 There should be two session vars - ID and QTY 

29 1 These will be split on checkout. 
30 

31 If (Request. Form ("addToCart") <> "") Then 



32 ' addToCart is okay, now create session vars 

33 1 cart_qty is numeric field 

34 1 prod_id is ID field (hidden) 
35 

36 If (Session("ID") <> "") Then 

37 'need to detect existing IDs? nah — not right now. 

38 Session ("ID") = Session ("ID") & Request .Form ("prod_id") & "I" 

39 Else 

40 Session ("ID") = Request. Form ("prod_id") & "I" 

41 End If 
42 

43 If (Session ("QTY") <> "") Then 

44 'need to detect existing IDs? nah — not right now. 

45 Session ("QTY") = Session ( "QTY" ) & Request . Form ( "cart_qty" ) & "I" 

46 Else 

47 Session ("QTY") = Request. Form ("car t_qty") & "I" 

48 End If 
49 

50 'Response. Write (Session ("QTY") & "<BR>") 

51 'Response. Write (Session ("ID") & "<BR>") 

52 'Session ("QTY") = "" 

53 'Session ("ID") = "" 

54 Response . Redirect ( "cart . asp?newitem=true" ) 



55 

56 End If 
57 

58 %> 

59 <% 

60 ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables 
61 

62 ' set the record count 

63 rsProducts_total = rsProducts .RecordCount 
64 

65 1 set the number of rows displayed on this page 

66 If (rsProducts_numRows < 0) Then 

67 rsProducts_numRows = rsProducts_total 

68 Elseif (rsProductsjiumRows = 0) Then 

69 rsProducts_numRows = 1 
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70 End If 
71 

72 1 set the first and last displayed record 

73 rsProducts_first = 1 

74 rsProducts_last = rsProducts_f irst + rsProducts_numRows - 1 
75 

76 1 if we have the correct record count, check the other stats 

77 If (rsProducts_total <> -1) Then 

78 If (rsProducts__f irst > rsProducts_total) Then rsProducts_f irst = rsProducts_total 

79 If (rsProducts_last > rsProducts_total) Then rsProducts_last = rsProducts_total 

80 If <rsProducts_numRows > rsProducts_total) Then rsProducts_numRows = rsProducts_total 

81 End If 

82 %> 

83 <% 

84 » *** Move To Record and Go To Record: declare variables 
85 

86 Set MMjrs = rsProducts 

87 MM_rsCount = rsProducts_total 

88 MM_size = rsProducts_numRows 

89 MM_uniqueCol = "ID" 

90 MM_paramName = "ID" 

91 MM_offset = 0 

92 MM_atTotal = false 

93 MM_paramIsDef ined = false 

94 If (MM_paramName <> "") Then 

95 MM_paramIsDe fined = (Request .Que rySt ring (MMjparamName) <> "") 

96 End If 

97 %> 

98 <% 



99 » *** Move To Specific Record: handle detail parameter 
00 

01 If (MM_paramIsDef ined And MM_rsCount <> 0) Then 
02 

03 ? get the value of the parameter 

04 param = Request .QuerySt ring (MMjparamName) 
05 

06 ' find the record with the unique column value equal to the parameter value 

07 MM_of f set = 0 

08 Do While (Not MM_rs.EOF) 

09 If (Cstr (MM_rs. Fields. Item (MM_uniqueCol) .Value) = param) Then 

10 Exit Do 

11 End If 

12 MM_offset = MM_offset + 1 

13 MM_rs.MoveNext 

14 Loop 
15 

16 1 if not found, set the number of records and reset the cursor 

17 If (MM_rs .EOF) Then 

18 If (MM_rsCount < 0) Then MM_rsCount = MM_offset 

19 If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset 

20 MM_offset =0 
21 

22 f reset the cursor to the beginning 

23 If (MM_rs.CursorType > 0) Then 

24 MM_rs .Move First 

25 Else 

26 MM_rs. Close 

27 MM_rs.Open 

28 End If 

29 End If 



30 

31 End If 

32 %> 

33 <% 

34 » **★ Move To Record: if we dont know the record count, check the display range 
35 

36 If (MM_rsCount = -1) Then 
37 

38 1 walk to the end of the display range for this page 
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139 i = MM_of f set 

140 While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size) ) 

141 MM_rs.MoveNext 

142 i = i + 1 
L4 3 Wend 

144 

145 1 if we walked off the end of the recordset, set MM_rsCount and MM size 

146 If (MM_rs.E0F) Then 

147 MM_rsCount = i 

L48 If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM rsCount 

.49 End If 

.50 

.51 1 if we walked off the end, set the offset based on page size 

.52 If (MM_rs .EOF And Not MMjparamls Defined) Then 

.53 If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then 

.54 If ( (MM_rsCount Mod MM_size) > 0) Then 

55 MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) 

.56 Else 

.57 MM_of f set = MM_rs Count - MM_size 

.58 End If 

59 End If 

60 End If 
61 

62 1 reset the cursor to the beginning 

63 If (MM_rs.CursorType > 0) Then 

64 MM_rs .MoveFirst 

65 Else 

66 MM_rs .Requery 

67 End If 
68 

69 1 move the cursor to the selected record 

70 i = 0 

71 While (Not MM_rs . EOF And i < MM_offset) 

72 MM_rs.MoveNext 

73 i = i + 1 

74 Wend 



75 End If 

76 %> 

77 <% 

78 1 *** Move To Record: update recordset stats 
79 

80 f set the first and last displayed record 

81 rsProducts_first = MM_offset + 1 

82 rsProducts_last = MM_offset + MM_size 

83 If (MM_rsCount <> -1) Then 

84 If (rsProducts_first > MM_rsCount) Then rsProducts_f irst = MM_rsCount 

85 If (rsProducts_last > MM_rsCount) Then rsProducts last = MM rsCount 

86 End If 
87 

38 1 set the boolean used by hide region to check if we are on the last record 

39 MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM size >= MM rsCount) 

90 %> 

91 <! — #include f ile=" . ./.. /global .asp" — > 

92 <html> 

93 <head> 

24 <title>Shopping Cart - Specify Quantity</title> 

95 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

96 </head> 

97 <body bgcolor="#<%= (EP_bgcolor) %>" 



98 text="#<%=EP_text%>" 

39 link="#<%=EP_link%>" 

00 vlink="#<%=EP__vlink%>" 

31 alink="#<%=EP_alink%>" 

)2 leftmargin="3" 

)3 topmargin="0" 

D 4 mar ginwidt h= " 0 " 

35 ma rgi nhe i gh t = " 0 " 

36 background^' . . / . . /<%= (EP_bgImg) %>"> 



)7 <!— #include f ile=" ../.. /banner . asp" — > 
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08 <br> 

09 <table width="500" border="l" align="center" bordercolor="#<%=EP _bordercolor%>" cellspacing="0 
"> 

10 <tr> 

11 <td> 

12 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

13 <tr> 

14 <td align="center"> 

15 <% 

16 'check to see which Title Text file is selected 

17 cycleDone = false 

18 Dim titleTextFile 
19 

20 While (NOT rsTitleText .EOF) 

21 

22 If (rsTitleText .Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

23 titleTextFile = rsTitleText . Fields . Item ("EP_titleTextFile") .Value 

24 End If 

25 rsTitleText .MoveNext 

26 Wend 

27 %> 

28 <object classid="clsid:D27CDB6E-AE6D~llcf-96B8-444553540000" codebase="http : //down 
load.macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0,2,0" width="480" height=" 
40"> 

29 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN= ' CENTER f >< FONT COLOR= 1 #<%=EP_text%> 1 >Shopping Cart - Specify Quantity</FONTX/P>"> 

30 <param name=wmode value=transparent> 

31 <param name=quality value=high> 

32 <embed src= M . ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= f CENTER 1 >< 
FONT COLOR= f #<%=EP_text%>'>Shopping Cart - Specify Quantity</FONT></P>" quality=high pluginspa 
ge="http: //www. macromedia. com/ Shockwave /download/ index . cgi?Pl_Prod_Version=Shockwave Flash" typ 
e="application/x-shockwave-flash" width="480" height="40"> 

33 </embed> 

34 </object> </td> 

35 </tr> 

36 <tr> 

37 <td> 

38 <hr color="#<%=EP_bordercolor%>"> 

39 </td> 

40 </tr> 

41 <tr> 

42 <td> 

43 <div align="center"xfont face="sans-serif " size="2">Before we add 
\A an item to your shopping cart,<br> 

45 you need to specify quantity. </font></div> 

46 </td> 

47 </tr> 

48 <tr> 

49 <td>  

30 <form name="forml" method="post " action=""> 

51 <table width="100%"> 

52 <tr> 

53 <td colspan="2"> 

54 <div align="center"xfont face="sans-serif " size="2">Adding 

55 <bx%= (rsProducts. Fields. Item ("EP_Pname") .Value) %x/b> to your shopping 
cart.</fontx/div> 

56 </td> 

57 </tr> 

58 <tr> 

59 <td width="50%"> 

50 <div align="right"xfont f ace="sans-serif " size="2">How many 
il of this item?</fontx/div> 

52 </td> 

53 <td width="50%"> 

54 <input type="text" name="cart_qty" size="5"> 

55 <input type="hidden" name="prod_id" value="<%= (rsProducts . Fields . Item ( "ID" 
). Value) %>"> 

56 </td> 

57 </tr> 
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68 <tr> 

69 <td colspan="2"> 

70 <div align="center"> 

71 <input type="submit" name=" Submit" value="Click here to add this to your 
Shopping Cart" style=" 

72 border-color : #<%=EP_bordercolor%>; 

73 border-style: groove; 

74 border-width: 3px; 

75 background-color : #<%=EPJbgcolor%>; 

76 color: #<%=EP_text%>; 

77 cursor: hand;"> 

78 <input type=" hidden" name="addToCart" value="true"> 

79 </div> 

80 </td> 

81 </tr> 

82 </table> 

83 </form> 

84 </td> 

85 </tr> 

86 <tr> 

87 <td> 

88 <hr color="#<%=EP_bordercolor%>"> 

89 </td> 

90 </tr> 

91 <tr> 

92 <td> 

93 <div align="center"> </div> 

94 </td> 

95 </tr> 

96 </table> 

97 </td> 



98 </tr> 

99 </table> 
DO </body> 

01 </html> 

02 <% 

D3 rsProducts. Close () 

D4 %> 

35 <% 

D6 rsTitleText. Close () 

07 %> 

38 



\EPack Startup Rles\templates\1\cartAdd.asp: 5/5 



1 <%@LANGUAGE="VBSCRIPT"%> 

2 < ! — #include f ile=" . . / . . /Connections/dbEPakRecords . asp" — > 

3 < ! — #include f ile=" . . / . . /Connections/dbEPakLibs . asp" — > 

4 <% 

5 set rsProducts = Server .CreateObject ("ADODB. Recordset") 

6 rsProducts .ActiveConnection = MM_dbEPakRecords_STRING 

7 rsProducts .Source = "SELECT ID, EP_Pname, EP_Pprice FROM EP_catalog" 

8 rsProducts .CursorType = 0 

9 rsProducts .CursorLocat ion = 2 

10 rsProducts. LockType = 3 

11 rsProducts . Open ( ) 

12 rsProducts_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server .CreateObject ("ADODB. Recordset") 

16 rsTitleText .ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source « "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocat ion = 2 

20 rsTitleText .LockType = 3 

2 1 rsTitleText . Open ( ) 

22 rsTitleText_numRows = 0 

23 %> 

24 <% 

25 If (Request. Form ("checkout") <> "") Then 
26 

27 Response .Redirect ( "checkout .asp?checkout=true") 

28 

29 End If 

30 %> 

31 <% 

32 1 cart_qty is numeric field 

33 1 prod_id is ID field (hidden) 

34 If (Session("QTY") <> "" AND Session (" ID" ) <> "") Then 

35 itemsStr = Session ("ID") 

36 qtyStr = Session ( "QTY" ) 
37 

38 splitltems = Split (itemsStr, " |") 

39 splitQTY = Split (qtyStr, "|") 
40 

41 End If ... 
\2 

43 If (Session ("QTY") = "") Then 
14 noltems = true 

45 End If 

16 %> 

47 <!— #include file=" ../. ./global. asp" — >■ 

48 <html> 

49 <head> 

50 <title>Shopping Cart</title> 

51 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859-l"> 

52 </head> 

53 <body bgcolor="#<%= (EP_bgcolor) %>" 

54 text="#<%=EP__text%>" 

55 link="#<%=EP_link%>" 

56 vlink="#<%=EP_vlink%>" 

57 alink="#<%=EP_alink%>" 

58 leftmargin="3" 

59 topmargin="0" 

60 marginwidth="0" 

51 marginheight= " 0 " 

52 background=". ,/. . /<%= (EP_bgImg) %>"> 

53 <! — #include f ile=" ../.. /banner .asp" — > 

54 <br> 

55 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacing="0 
"> 

56 <tr> 

57 <td> 

58 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 
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69 <tr> 

70 <td align= M center"> 

71 <% 

72 'check to see which Title Text file is selected 
7 3 cycleDone = false 

74 Dim titleTextFile 

75 

76 While (NOT rsTitleText . EOF) 

77 

78 If (rsTitleText. Fields. Item ( "EP_isSelected" ) .Value = "True") Then 

79 titleTextFile = rsTitleText . Fields . Item ( "EP titleTextFile" ) .Value 

80 End If 

81 rsTitleText .MoveNext 

82 Wend 

83 %> 

84 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : //down 
load. macromedia.com/pub/shockwave/cabs/flash/swf lash. cab#version=4, 0, 2, 0" width="480" height=" 
40"> 

85 <param name="movie" value=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P A 
LIGN=' CENTER' X FONT COLORS 1 #<%=EP_text%> ' >Shopping Cart</FONTX/P>" > 

86 <param name=quality value=high> 

87 <param name=wmode value=transparent> 

88 <embed src=". ./. . /banners/titleText/<%= (titleTextFile) %>?txt=<P ALIGN= 1 CENTER 1 >< 
FONT COLOR= f #<%=EP_text%> f >Shopping Cart</FONTX/P>" quality=high pluginspage="http: //www.macr 
omedia.com/shockwave/download/index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-sh 
ockwave-flash" width="480" height="40"> 

39 </embed> 

90 </object> </td> 

91 </tr> 

92 <tr> 

93 <td> 

94 <hr color="#<%=EP_bordercolor%>"> 

95 </td> 

96 </tr> 

97 <tr> 

98 <td> 

59 <div align="center"xfont face="sans-serif " size="2">Below is a list 

30 of items in your Shopping Cart.<br> 

n <% 

32 If (Request ("newitem") <> "") Then 

33 %> 

34 <a href =" javascript ihistory.go (-2) ">Click here to go back and continue 

35 shopping. </a> 
)6 <% 

37 End If 

38 %> 

39 <br> 
LO <br> 
LI <% 

L2 If (NOT noitems) Then 

13 %> 

14 <a href="cartRemove.asp">Click here to remove items from your Shopping 

15 Cart .</a>  
.6 <% 

.7 End If 

.8 %> 

L9 </fontx/div> 

>0 </td> 

11 </tr> 

12 <tr> 

!3 <td> 

!4 <div align="center"> 

\S <% 

!6 If (NOT noitems) Then 

!7 %> 

!8 <table width="100%" border="0" cellpadding="l" cellspacing="l"> 

!9 <tr> 

*0 <td width="5%"xbxfont face="sans-serif " size="2">Quantity</fontx/bx/td> 

51 <td width="62%"xbxfont f ace="sans-serif " size="2">  &nbsp/Name 
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32 




of Item(s) </fontx/b></td> 


33 


td> 


<td width="14%"><bxfont f ace="sans-serif f! size="2">Price (ea. ) </fontx/b></ 


34 




</tr> 


35 




<% 


36 






37 


i=0 




38 


While 


(i <= Ubound (split I terns ) ) 


39 


%> 




40 




<tr> 


41 




<td width="5%"> 


42 




<div align="center"xfont f ace="sans-serif " size="2"x%=splitQTY (i) %x/fon 




tx/div> 


43 




</td> 


44 




<% 


45 




rsProducts .MoveFirst ( ) 


46 




While (NOT rsProducts .EOF) 


•47 




%> 


48 




<% 


49 




If (CStr (splitltems (i) ) = CStr (rsProducts . Fields . Item( "ID" ) .Value) ) Then 


50 




%> 


51 




<td width="62%"xfont face=" sans-serif " size="2">       <%= 




( rsProducts. Fields. Item ("EP Pname") .Value) %></font></td> 


52 




<td width="14%"xfont f ace="sans-serif " size="2"x%=FormatCurrency (rsProduct 




s. Fields. Item ("EP Pprice") .Value) %></fontx/td> 


53 




<% 


54 




End If 


55 




%> 


56 




<% 


57 




rsProducts .Mo veNext ( ) 


58 




Wend 


59 




%> 


50 




</tr> 


51 




<% 


52 


i=i+l 




53 


Wend 




54 


%> 




55 




</table> 


56 




<% 


57 




End If 


58 




If (NOT noitems) Then - 


59 




%> 


70 




<form name="forml" method="post" action=""> 


11 




<input type=" submit" name="Submit" value="Click here to check out" style=" 


72 




border-color: #<%=EP_bordercolor%>; 


73 




border-style: groove; 


74 




border-width : 3px ; 


75 




background-color: #<%=EP bgcolor%>; 


76 




color: #<%=EP_text%>; 


77 




cursor: hand;"> 


78 




<input type="hidden" name=" checkout" value="true"> 


79 




</form> 


30 




<% 


31 




End If 


12 




%> 


)3 




<% 


34 




If (noitems) Then 


35 




%> 


36 




<font face="sans-serif " size="2">Your Shopping Cart is empty .</font> 


37 




<% 


J8 




End If 


39 




%> 


)0 




</div> 


U 




</td> 


)2 




</tr> 


)3 




<tr> 


)4 




<td> 


)5 




<hr color="#<%=EP bordercolor%>"> 


)6 




</td> 
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97 
98 
99 
00 
01 
02 
03 
04 



</tr> 
<tr> 



<td> 



<div align="center"> </div> 



</td> 
</tr> 



</table> 
</td> 



05 </tr> 

06 </table> 

07 </body> 

08 </html> 

09 <% 

10 rsProducts .Close ( ) 

11 %> 

12 <% 

13 rsTitleText . Close ( ) 

14 %> 
15 
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1 <% @LANGUAGE=" VBSCRIPT "%> 

2 <! — ffinclude f ile=" . ./.. /Connect ions /dbEPakRecords • asp 11 — > 

3 <! — #include file=" . ./. . /Connections/dbEPakLibs .asp" — > 

4 <% 

5 set rsAboutAdmin = Server. CreateObject ("ADODB. Recordset") 

6 rsAboutAdmin. ActiveConnection = MM_dbEPakRecords_STRING 

7 rsAboutAdmin. Source - "SELECT * FROM about" 

8 rsAboutAdmin. CursorType = 0 

9 rsAboutAdmin. CursorLocat ion = 2 

10 rsAboutAdmin. LockType = 3 

1 1 rsAboutAdmin . Open ( ) 

12 rsAboutAdmin_numRows = 0 

13 %> 

14 <% 

15 set rsTitleText = Server. CreateOb j ect ("ADODB. Recordset") 

16 rsTitleText. ActiveConnection = MM_dbEPakLibs_STRING 

17 rsTitleText. Source = "SELECT * FROM titleText" 

18 rsTitleText .CursorType = 0 

19 rsTitleText .CursorLocat ion = 2 

20 rsTitleText .LockType = 3 

21 rsTitleText.Open() 

22 rsTitleTextjnumRows = 0 

23 %> 

24 <% 

25 aboutStr = rsAboutAdmin. Fields . Item ( "EP aboutTXT") .Value 
26 

27 aboutSplit = Split (aboutStr, VBCrLf) 

28 about Join = Join (aboutSplit, "<BR>") 

29 %> 
30 

31 <!-- #include f ile=" ../.. /global . asp" — > 

32 <html> 

33 <head> 

34 <title>About Us</title> 

35 <meta http-equiv="Content-Type" content=" text/html; charset=iso-8859~l"> 

36 </head> 

37 <body bgcolor= H #<%=(EP_bgcolor) %>" 



38 text="#<%=EP_text%>" 

B9 link="#<%=EP_link%>" 

40 vlink="#<%=EP_vlink%>" 

41 alink="#<%=EP_alink%>" 
12 leftmargin="3" 

43 topmargin="0" 

14 marginwidth=" 0 " 

15 marginheight=" 0 " 

16 background^'. ./. . /<%= (EP_bgImg) %>"> 



17 <! — #include file=" . ./ . ./banner .asp" — > 

18 <br> 

49 <table width="500" border="l" align="center" bordercolor="#<%=EP_bordercolor%>" cellspacings 



50 <tr> 

51 <td> 

32 <table width="100%" border="0" align="center" bgcolor="#<%=EP_bgcolor%>"> 

33 <tr> 

54 <td align="center"> 

35 

56 <% 

37 'check to see which Title Text file is selected 

58 cycleDone = false 

59 Dim titleTextFile 
50 

51 While (NOT rsTitleText . EOF) 

52 . 

53 If (rsTitleText. Fields. Item("EP_isSelected") .Value = "True") Then 

54 titleTextFile = rsTitleText . Fields . Item ( "EP titleTextFile") .Value 

55 End If 

56 rsTitleText .MoveNext 

57 Wend 

58 %> 
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69 <object classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" codebase="http : 
//download. macromedia .com/pub/ shockwave/cabs/ flash/ swf lash. cab#version=4 , 0,2,0" width="480" he 
ight="40"> 

70 <param name="movie" value=" . . / . . /banners/titleText/<%= ( titleTextFile) %>?txt=<P A 
L I GN=' CENTER' X FONT COLOR= ' #<%=EP_text%> ' >About Us</FONTX/P>"> 

71 <param name=quality value=high> 

72 <param name=wmode value=transparent> 

73 . <embed src=" ../.. /banners/titleText/<%= (titleTextFile) %>?txt=<P AL I GN= 1 CENTER 1 >< 
FONT COLOR='#<%=EP_text%> f >About Us</FONTX/P>" quality=high pluginspage="http : //www.macromedi 
a. com/ shockwave/download/ index. cgi?Pl_Prod_Version=ShockwaveFlash" type="application/x-shockwa 
ve-flash" width="480" height="40"> 

74 </embed> 

75 </object> 

76 </td> 

77 • </tr> 

78 <tr> 

79 <td> 

80 <hr color="#<%=EP_bordercolor%>"> 

81 </td> 

82 </tr> 

83 <tr> 

84 <td> 

85 <div align="center"x/div> 

36 <div align="left"xfont f ace="sans-serif " size="2"x%= (about Join) %></fontx/div> 

37 </td> 
88 </tr> 
39 <tr> 

90 <td> 

91 <hr colors" #<%=EP_bordercolor%>"> 

92 </td> 

93 </tr> 

94 <tr> 

95 <td> 

96 <div align="center"> </div> 

97 </td> 

98 </tr> 

99 </table> 
DO </td> 

31 </tr> 

32 </table> 

33 </body> 

34 </html> 
)5 <% 

36 rsAboutAdmin . Close ( ) 

37 %> 

38 <% 

39 rsTitleText.CloseO 
10 %> 

11 
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1 < %@ LANGUAGE = " VBSCRI PT " % > 

2 < ! — #include f ile="Connections/dbEPakAppearance . asp" — > 

3 < ! — #include f ile="Connections/dbEPakRecords . asp" — > 

4 <% 
5 

6 1 This is the setup file for the public portion of E-Pack. 

7 1 It creates Application variables, such as colors, images, etc. 

8 ' The web counter is also contained within this page. 
9 

10 %> 

11 <% 

12 set rsColors = Server . CreateObject ( "ADODB. Recordset " ) 

13 rsColors .ActiveConnection = MM_dbEPakAppearance_STRING 

14 rsColors. Source = "SELECT * FROM colors" 

15 rsColors .Cur sorType = 0 

16 rsColors .CursorLocation = 2 

17 rsColors. LockType = 3 

18 rsColors . Open ( ) 

19 rsColors_numRows = 0 

20 %> 

21 <% 

22 set rsVariables = Server .CreateObject ("ADODB. Recordset") 

23 rsVariables .ActiveConnection = MM_dbEPakAppearance_STRING 

24 rsVariables. Source = "SELECT * FROM variables" 
IS rsVariables .CursorType = 0 

26 rsVariables .CursorLocation = 2 

27 rsVariables. LockType = 3 

28 rsVariables . Open ( ) 

29 rsVariables_numRows = 0 

30 %> 

31 <% 

32 set rslmages = Server .CreateObject ("ADODB. Recordset") 

33 rslmages .ActiveConnection = MM_dbEPakAppearance_STRING 

34 rslmages. Source = "SELECT * FROM images" 

35 rslmages. CursorType = 0 

36 rslmages .CursorLocation = 2 

37 rslmages .LockType = 3 

38 rs Images. Open () 

39 rsImages_numRows = 0 
10 %> 

U <% 

12 set rsPages = Server .CreateObject ("ADODB. Recordset") 

13 rsPages .ActiveConnection = MM_dbEPakAppearance_STRING 

14 rsPages .Source = "SELECT * FROM pages" 

15 rsPages .CursorType = 0 

16 rsPages .CursorLocation = 2 

17 rsPages .LockType = 3 

58 r s Pages. Open () 

19 rsPages_numRows = 0 

50 %> 

31 <% 

32 set rsLogoFile = Server .CreateObject ( "ADODB. Recordset " ) 

33 rsLogoFile. ActiveConnection = MM_dbEPakAppearance_STRING 

34 rsLogoFile. Source = "SELECT * FROM logo" 

35 rsLogoFile. CursorType = 0 

36 rsLogoFile. CursorLocation = 2 
57 rsLogoFile. LockType = 3 

38 r sLogo File. Open ( ) 

59 rsLogoFile_numRows = 0 
50 %> 

31 <% 

52 set rsWebCounter = Server .CreateObject ("ADODB. Recordset " ) 

53 rsWebCounter. ActiveConnection = MM_dbEPakRecords_STRING 
14 rsWebCounter. Source = "SELECT * FROM webCounter" 

>5 rsWebCounter .CursorType = 0 

56 rsWebCounter .CursorLocation = 2 

57 rsWebCounter .LockType = 3 

58 rsWebCounter .Open ( ) 

59 rsWebCounter_numRows = 0 
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70 %> 

71 <% 

72 1 set current web count variable 

73 webCount = rsWebCounter . Fields . Item ( "EPak_webCounter" ) .Value + 1 
74 

75 ' create SQL Query statement 

7 6 webCountQuery = "update webCounter set EPak_webCounter = " & webCount & " where ID = 1" 
77 

78 1 execute Web Counter update query 

79 Set EP_webCount = Server .CreateObject ( "ADODB. Command" ) 

80 EP_webCount . ActiveConnection = MM_dbEPakRecords_STRING 

81 EP_webCount .CommandText = webCountQuery 

82 EP_webCount. Execute 

83 EP_webCount .ActiveConnection . Close 
34 

35 %> 

36 <% 

87 set rsBackgroundlmage = Server .CreateObject ("ADODB. Recordset") 

88 rsBackgroundlmage .ActiveConnection = MM_dbEPakAppearance_STRING 
99 rsBackgroundlmage. Source = "SELECT * FROM background" 

90 rsBackgroundlmage. CursorType = 0 

91 rsBackgroundlmage .CursorLocat ion = 2 

92 rsBackgroundlmage. LockType = 3 

93 rsBackgroundlmage . Open ( ) 

94 rsBackgroundImage_numRows = 0 

95 %> 

96 <% 

97 set rsMenuBackgroundlmage = Server .CreateObject ( "ADODB. Recordset") 

98 rsMenuBackgroundlmage. ActiveConnection = MM_dbEPakAppearance_STRING 

99 rsMenuBackgroundlmage . Source = "SELECT * FROM background_menu" 
DO rsMenuBackgroundlmage. CursorType = 0 

01 rsMenuBackgroundlmage .CursorLocat ion = 2 

02 rsMenuBackgroundlmage. LockType = 3 

03 rsMenuBackgroundlmage . Open ( ) 

34 rsMenuBackgroundImage_numRows = 0 

35 %> 
D6 <% 

37 set rsAdminTitle = Server .CreateObj ect { "ADODB .Recordset" ) 

38 rsAdminTitle. ActiveConnection = MM_dbEPakRecords_STRING 

39 rsAdminTitle. Source = "SELECT EP_clientBizName FROM adminlnfo" 

10 rsAdminTitle. CursorType = 0 ... 

11 rsAdminTitle. Cur sorLocation = 2 
L2 rsAdminTitle. LockType = 3 

L3 rsAdminTitle . Open ( ) 

14 rsAdminTitle_numRows = 0 

L5 %> 

16 <% 

17 ' Set Application Color variables 

18 1 (I know for certain that these are used — not sure about epak_text) 

19 Application ("epak_bgcolor") = rsColors. Fields. Item ("epak_bgco lor") .Value 

20 Application ("epak_text") = rsColors .Fields . Item("epak_text") .Value 

21 Application ("epak_link") = rsColors .Fields . Item ( "epak_link" ) .Value 

22 Application ("epak_vlink") = rsColors . Fields . Item ("epak_vlink") .Value 

23 Application ( "epak_alink" ) = rsColors. Fields. I tern ("epak_alink") .Value 

24 Application ( "epak_borderColor" ) = rsColors . Fields . Item ( "epak__borderColor" ) .Value 

25 Application ( "epak_highlight " ) = rsColors . Fields . Item ( "epak_highlight" ) .Value 
26 

27 'Images **NOTE*** Check to see if these are used 

28 Application ("epak_logoImg") = rsLogoFile . Fields . Item ( "EP_logo File" ) .Value 

29 Application ("epak_logoAlt") = rslmages . Fields . Item ( "epak_logoAlt" ) .Value 

30 Application ( "epak__bglmg" ) = rsBackgroundlmage . Fields . I tern ( "EPak__bgImage" ) .Value 

31 Application ( "epak_menubglmg" ) = rsMenuBackgroundlmage . Fields . Item ( "EPak_MenuBackground" ) .Value 
32 

33 1 Available pages (returned value is boolean) 

34 ■ ***NOTE*** I don't think these are used anywhere 

35 ' Application ("epak_pgNews") = rsPages . Fields . Item ( "epak_news" ) .Value 

36 'Application ( "epakjpgCatalog" ) = rsPages . Fields . Item ( "epak_catalog") .Value 

37 1 Application •( "epak_pgContact" ) = rsPages . Fields . Item ( "epak_contact" ) .Value 

38 'Application ( "epak_pgSearch" ) = rsPages . Fields . Item ( "epak_search" ) .Value 
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.39 ' Application ( "epak_pgMsgBoard" ) = rsPages . Fields . Item( "epak_msgboard" ) .Value 

.40 'Application ("epak_pgCompany") = rs Pages . Fields . I tern ( "epak_company" ) .Value 

.41 1 Application ( 11 epak_pgSurvey" ) = rsPages . Fields . Item ( "epak_survey" ) .Value 

.42 f Application (" epak_pgComments 11 ) = rsPages . Fields . I tem ( "epak__comments" ) .Value 

= 43 'Application ("epak_pgCounter") = rsPages . Fields . Item ( "epak_counter" ) .Value 

.44 'Application ("epakjpgFAQ") = rsPages . Fields . Item ( "epak_faq" ) .Value 

.45 

.46 1 Other Variables ***NOTE**(I don't think these are ever used...) 

.47 Application ( "epak_counterOn" ) = rsVariables . Fields . Item ( "epak_counterOn" ) .Value 

.48 Application ("epakjDglmgOn") = rsVariables . Fields . Item ( "epak_bglmg0n" ) .Value 

.49 Application ( "epak_globalFontType" ) = rsVariables . Fields . Item ( "epak_globalFontType" ) .Value 

.50 Application ( "epak__globalFontSize" ) = rsVariables . Fields . Item ( "epak_globalFontSize" ) .Value 

.51 Application ("epak_globalLinkType") = rsVariables . Fields . Item ( "epak_globalLinkType" ) .Value 

.52 Application ( "epak_globalLinkSize" ) - rsVariables . Fields . Item("epak_globalLinkSize") .Value 

.53 Application ( "epak_globalLinkUnderline" ) = rsVariables . Fields . Item ( f, epak_globalLinkUnderline" ) . 
Value 

54 Application { "epak_globalLinkBold" ) = rsVariables . Fields . Item ( "epak_globalLinkBold" ) .Value 

.55 Application ("epak__currencyFormat") = rsVariables . Fields . Item ( M epak_currencyFormat" ) .Value 
.56 

.57 1 EPack Business name (this is used by the home frameset) 

58 Application ( "epak^bizName" ) = rsAdminTitle . Fields . Item ( "EP_clientBizName" ) .Value 
59 

60 1 Need to add template detection here. If template number is 1 

61 1 then go to templates/l/f rameset . asp 

62 1 If template number is 2, go to templates/2/f rameset .asp (etc.) 
63 

64 1 App variables are set, now direct user to the main page 

65 1 FIRST LET'S CLOSE ALL OF OUR RECORDSETS!! =P 

66 %> 

67 <% 

68 rsColors .Close () 

69 %> 

70 <% 

71 rsVariables. Close () 

72 %> 

73 <% 

74 rslmages. Close () 

75 %> 

76 <% 

77 rsPages. Close () 

78 %> 

79 <% 

80 rsLogoFile . Close ( ) 

81 %> 

82 <% 

83 rsWebCounter .Close ( ) 

84 %> 

85 <% 

86 rsBackgroundlmage .Close () 

87 %> 

88 <% 

89 rsMenuBackgroundlmage. Close () 

90 %> 

91 <% 

92 rsAdminTitle. Close ( ) 

93 %> 

94 <% 

95 ' Redirecting to our welcome page. :) 

96. Response .Redirect ( "templates/l/f rameset . asp" ) 

97 %> 
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>howpage 

l 

2 

3 <% 

4 ' Converts Application variables into simple EP (prefix) variables 
5 

6 1 colors 

7 If (Application ("epak_bgcolor") <> "") Then 

8 restart = false 

9 Else 

.0 Response * Redirect ( "setup .asp" ) 

.1 End If 

.2 

.3 EP_bgcolor = Application ( "epak_bgcolor" ) 

.4 EP_text = Application <"epak_text") 

.5 EP_link = Application ( 11 epak_link" ) 

.6 EP_vlink = Application ( "epak_vlink" ) 

.7 EP_alink = Application ( "epak_alink" ) 

.8 EP_bordercolor = Application ( "epak__borderColor" ) 

.9 EP_highlight = Application ( "epakjiighlight" ) 

:0 

!1 f images 

2 EP_logo = Application ("epak_logoImg") 

:3 EP_logoAlt = Application ( "epak_logoAlt" ) 

14 EP_bgImg = "images/backgrounds/" & Application ("epakjbglmg") 

:5 EP_menubgImg = "images/backgrounds/" & Application ( "epak_menubglmg" ) 

:6 

!7 1 Available Pages 

:8 EP_pgNews - Application ( "epak_pgNews" ) 

:9 EP_pgCatalog = Application ( 11 epak_pgCatalog") 

;0 EP_pgContact = Application ("epak_pgContact") 

:l EP_pgSearch = Application ( "epak_pgSearch" ) 

\2 EP_pgMsgBoard = Application ("epak_pgMsgBoard") 

;3 EP_pgCompany = Application ("epak_pgCompany") 

4 EP_pgSurvey = Application ( "epak__pgSurvey" ) 

5 EP_pgComments = Application ( "epak_pgComments" ) 
;6 EP_pgCounter = Application ("epak_pgCounter") 

;7 EP_pgFAQ = Application ( "epak_pgFAQ" ) 

;8 EP_pgCoupon = Application ("epak_pgCoupon") 

>9 EP_Coupon = Application ( "epak_Coupon" ) 

;o 

1 

.2 1 misc variables 

13 EP_gFontFace = Application ( "epak_globalFontType" ) 

:4 EP_gFontSize = Application ( "epak_globalFontSize" ) 

:5 

.6 %> 



